(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    107652,       2565]
NotebookOptionsPosition[     97263,       2384]
NotebookOutlinePosition[     97650,       2401]
CellTagsIndexPosition[     97607,       2398]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Quit", "[", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.7842608611834793`*^9, 
  3.784260864074779*^9}},ExpressionUUID->"51900790-39f4-4416-8487-\
bcea26d26948"],

Cell[CellGroupData[{

Cell["\:8ba1\:7b97\:7269\:7406-Mathmatica\:5b9e\:73b0", "Title",
 CellChangeTimes->{{3.784254736358493*^9, 
  3.784254744470183*^9}},ExpressionUUID->"5ab17341-64f4-400e-8506-\
bfaf25f67ac2"],

Cell[CellGroupData[{

Cell["\:51fd\:6570\:8fd1\:4f3c", "Section",
 CellChangeTimes->{{3.7842547700431433`*^9, 
  3.7842547997424603`*^9}},ExpressionUUID->"5fec180a-bc2a-4d6d-94be-\
2ec9673a5563"],

Cell[CellGroupData[{

Cell["Aitken", "Subsection",
 CellChangeTimes->{{3.8096629044714518`*^9, 
  3.809662915400164*^9}},ExpressionUUID->"84399253-ed40-41cd-a8d1-\
d17e2af9901d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"aitken", "[", 
   RowBox[{"x0_", ",", "y0_", ",", "x_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"f", ",", "y1", ",", "y2", ",", "yp2", ",", "Niter"}], "}"}], 
    ",", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"xi_", ",", "xj_", ",", "yi_", ",", "yj_"}], "]"}], ":=", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"x", "-", "xj"}], 
         RowBox[{"xi", "-", "xj"}]], "yi"}], "+", 
       RowBox[{
        FractionBox[
         RowBox[{"x", "-", "xi"}], 
         RowBox[{"xj", "-", "xi"}]], "yj"}]}]}], ";", 
     RowBox[{"y2", "=", "y0"}], ";", 
     RowBox[{"Niter", "=", 
      RowBox[{"Length", "[", "x0", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Do", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"y1", "=", 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"x0", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ",", 
              RowBox[{"x0", "[", 
               RowBox[{"[", 
                RowBox[{"i", "+", "n"}], "]"}], "]"}], ",", 
              RowBox[{"y2", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ",", 
              RowBox[{"y2", "[", 
               RowBox[{"[", 
                RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"y2", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "=", "y1"}], ";"}], 
          "\[IndentingNewLine]", ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{"Niter", "-", "n"}]}], "}"}]}], "]"}], ";", 
        RowBox[{"Print", "[", 
         RowBox[{
         "\"\<\:7b2c\>\"", ",", "n", ",", "\"\<\:6b21\:5faa\:73af\>\"", ",", 
          "\"\<y\:7684\:503c\:4e3a\>\"", ",", "y2"}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"n", "\[Equal]", 
           RowBox[{"Niter", "-", "2"}]}], ",", 
          RowBox[{"yp2", "=", 
           RowBox[{"y2", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "1", ",", 
         RowBox[{"Niter", "-", "1"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{
      "\"\<\:63d2\:503c\:70b9\>\"", ",", "x", ",", 
       "\"\<\:7684\:503c\:4e3a\>\"", ",", 
       RowBox[{"y2", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<; \:8bef\:5dee\:4e3a\>\"", 
       ",", 
       FractionBox[
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{
           RowBox[{"y2", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "-", 
           RowBox[{"y2", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", 
         RowBox[{"Abs", "[", 
          RowBox[{
           RowBox[{"y2", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "-", "yp2"}], "]"}]}], "2"]}], 
      "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.809662947256793*^9, 3.8096630007043133`*^9}, {
   3.8096630337332964`*^9, 3.8096631346510887`*^9}, {3.809663175007832*^9, 
   3.8096631760022583`*^9}, {3.8096632127310743`*^9, 3.8096632881485996`*^9}, 
   3.8096633292648973`*^9, {3.8096633662265987`*^9, 3.809663471310012*^9}, 
   3.809663545260381*^9, {3.809663582916705*^9, 3.809663641675801*^9}, {
   3.8096638585407887`*^9, 3.809663976953518*^9}, {3.8096640846364765`*^9, 
   3.8096641084337254`*^9}, {3.8096641578162565`*^9, 3.80966421691819*^9}, {
   3.8096642555469494`*^9, 3.8096642590199156`*^9}, {3.8096643031544733`*^9, 
   3.809664346619416*^9}, {3.8096643851532345`*^9, 3.8096644030548887`*^9}, 
   3.809664550429922*^9, {3.8096645965933123`*^9, 3.80966460263383*^9}, {
   3.8096646560590324`*^9, 3.8096646573662777`*^9}, {3.8096647071965523`*^9, 
   3.8096647923264847`*^9}, 3.809664832030588*^9, {3.8096649116686783`*^9, 
   3.8096649368561916`*^9}, {3.8096659975317116`*^9, 
   3.8096660505111647`*^9}, {3.80985744483209*^9, 3.8098575305392184`*^9}, {
   3.809857612248645*^9, 3.8098576148529897`*^9}, {3.809857658716713*^9, 
   3.809857771427431*^9}, {3.80985783177402*^9, 3.8098578656636972`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"1779b5ad-7ae5-47a7-9390-629d4d05fdf3"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"x0", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "0.5", ",", "1.0", ",", "1.5", ",", "2.0", ",", "2.5", ",", 
     "3"}], "}"}]}], ";", 
  RowBox[{"y0", "=", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", "0.938470", ",", "0.765198", ",", "0.511828", ",", "0.223891", 
     ",", 
     RowBox[{"-", "0.0483838"}], ",", 
     RowBox[{"-", "0.260052"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"aitken", "[", 
  RowBox[{"x0", ",", "y0", ",", "2.2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8096660653715944`*^9, 3.809666074601308*^9}, {
  3.80985724022776*^9, 3.809857262686984*^9}, {3.8098573094422903`*^9, 
  3.80985735545905*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"cbd94483-3ef0-47b6-b4ff-ad0927496507"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:7b2c\"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\"\:6b21\:5faa\:73af\"\>", 
   "\[InvisibleSpace]", "\<\"y\:7684\:503c\:4e3a\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "0.7292680000000002`", ",", "0.34934520000000013`", ",", 
     "0.15710999999999964`", ",", "0.10871619999999993`", ",", 
     "0.1149810799999999`", ",", "0.07861711999999992`", ",", 
     RowBox[{"-", "0.260052`"}]}], "}"}]}],
  SequenceForm[
  "\:7b2c", 1, "\:6b21\:5faa\:73af", "y\:7684\:503c\:4e3a", {
   0.7292680000000002, 0.34934520000000013`, 0.15710999999999964`, 
   0.10871619999999993`, 0.1149810799999999, 0.07861711999999992, -0.260052}],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.8096660761263943`*^9, 3.8098572651935215`*^9, 
  3.809857317074953*^9, 3.8098573571191044`*^9, 3.8098578150075808`*^9, 
  3.8098578753171916`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[19]:=",ExpressionUUID->"73fd07fa-c977-4343-a7b9-\
d7ea0929f0fc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:7b2c\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\"\:6b21\:5faa\:73af\"\>", 
   "\[InvisibleSpace]", "\<\"y\:7684\:503c\:4e3a\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.10656216000000007`"}], ",", "0.022545359999999265`", ",",
      "0.09903743999999998`", ",", "0.1131016159999999`", ",", 
     "0.1077082879999999`", ",", "0.07861711999999992`", ",", 
     RowBox[{"-", "0.260052`"}]}], "}"}]}],
  SequenceForm[
  "\:7b2c", 2, "\:6b21\:5faa\:73af", 
   "y\:7684\:503c\:4e3a", {-0.10656216000000007`, 0.022545359999999265`, 
   0.09903743999999998, 0.1131016159999999, 0.1077082879999999, 
   0.07861711999999992, -0.260052}],
  Editable->False]], "Print",
 CellChangeTimes->{3.8096660761263943`*^9, 3.8098572651935215`*^9, 
  3.809857317074953*^9, 3.8098573571191044`*^9, 3.8098578150075808`*^9, 
  3.809857875320204*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[19]:=",ExpressionUUID->"b3305a68-1f0a-44ea-8107-\
df78b824560a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:7b2c\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\"\:6b21\:5faa\:73af\"\>", 
   "\[InvisibleSpace]", "\<\"y\:7684\:503c\:4e3a\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "0.08279553599999898`", ",", "0.10923638400000008`", ",", 
     "0.11028878079999992`", ",", "0.1105847295999999`", ",", 
     "0.1077082879999999`", ",", "0.07861711999999992`", ",", 
     RowBox[{"-", "0.260052`"}]}], "}"}]}],
  SequenceForm[
  "\:7b2c", 3, "\:6b21\:5faa\:73af", "y\:7684\:503c\:4e3a", {
   0.08279553599999898, 0.10923638400000008`, 0.11028878079999992`, 
   0.1105847295999999, 0.1077082879999999, 0.07861711999999992, -0.260052}],
  Editable->False]], "Print",
 CellChangeTimes->{3.8096660761263943`*^9, 3.8098572651935215`*^9, 
  3.809857317074953*^9, 3.8098573571191044`*^9, 3.8098578150075808`*^9, 
  3.809857875323202*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[19]:=",ExpressionUUID->"874e3549-018a-4997-b197-\
01660f7496cd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:7b2c\"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\"\:6b21\:5faa\:73af\"\>", 
   "\[InvisibleSpace]", "\<\"y\:7684\:503c\:4e3a\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "0.11188046880000019`", ",", "0.11013092127999993`", ",", 
     "0.11046635007999991`", ",", "0.1105847295999999`", ",", 
     "0.1077082879999999`", ",", "0.07861711999999992`", ",", 
     RowBox[{"-", "0.260052`"}]}], "}"}]}],
  SequenceForm[
  "\:7b2c", 4, "\:6b21\:5faa\:73af", "y\:7684\:503c\:4e3a", {
   0.11188046880000019`, 0.11013092127999993`, 0.11046635007999991`, 
   0.1105847295999999, 0.1077082879999999, 0.07861711999999992, -0.260052}],
  Editable->False]], "Print",
 CellChangeTimes->{3.8096660761263943`*^9, 3.8098572651935215`*^9, 
  3.809857317074953*^9, 3.8098573571191044`*^9, 3.8098578150075808`*^9, 
  3.809857875325201*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[19]:=",ExpressionUUID->"41d1975b-204f-4e01-a37f-\
e48096f6b85d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:7b2c\"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\"\:6b21\:5faa\:73af\"\>", 
   "\[InvisibleSpace]", "\<\"y\:7684\:503c\:4e3a\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "0.11034086698239998`", ",", "0.11035901286399993`", ",", 
     "0.11046635007999991`", ",", "0.1105847295999999`", ",", 
     "0.1077082879999999`", ",", "0.07861711999999992`", ",", 
     RowBox[{"-", "0.260052`"}]}], "}"}]}],
  SequenceForm[
  "\:7b2c", 5, "\:6b21\:5faa\:73af", "y\:7684\:503c\:4e3a", {
   0.11034086698239998`, 0.11035901286399993`, 0.11046635007999991`, 
   0.1105847295999999, 0.1077082879999999, 0.07861711999999992, -0.260052}],
  Editable->False]], "Print",
 CellChangeTimes->{3.8096660761263943`*^9, 3.8098572651935215`*^9, 
  3.809857317074953*^9, 3.8098573571191044`*^9, 3.8098578150075808`*^9, 
  3.8098578753272*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[19]:=",ExpressionUUID->"857a0009-a76c-49b1-9c44-\
dd35dfcb3cff"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:7b2c\"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\"\:6b21\:5faa\:73af\"\>", 
   "\[InvisibleSpace]", "\<\"y\:7684\:503c\:4e3a\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "0.11035417396223994`", ",", "0.11035901286399993`", ",", 
     "0.11046635007999991`", ",", "0.1105847295999999`", ",", 
     "0.1077082879999999`", ",", "0.07861711999999992`", ",", 
     RowBox[{"-", "0.260052`"}]}], "}"}]}],
  SequenceForm[
  "\:7b2c", 6, "\:6b21\:5faa\:73af", "y\:7684\:503c\:4e3a", {
   0.11035417396223994`, 0.11035901286399993`, 0.11046635007999991`, 
   0.1105847295999999, 0.1077082879999999, 0.07861711999999992, -0.260052}],
  Editable->False]], "Print",
 CellChangeTimes->{3.8096660761263943`*^9, 3.8098572651935215`*^9, 
  3.809857317074953*^9, 3.8098573571191044`*^9, 3.8098578150075808`*^9, 
  3.809857875329198*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[19]:=",ExpressionUUID->"92eefb02-981e-426a-aafe-\
b120625a8c77"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:63d2\:503c\:70b9\"\>", "\[InvisibleSpace]", "2.2`", 
   "\[InvisibleSpace]", "\<\"\:7684\:503c\:4e3a\"\>", "\[InvisibleSpace]", 
   "0.11035417396223994`", 
   "\[InvisibleSpace]", "\<\"; \:8bef\:5dee\:4e3a\"\>", "\[InvisibleSpace]", 
   "9.072940799978446`*^-6"}],
  SequenceForm[
  "\:63d2\:503c\:70b9", 2.2, "\:7684\:503c\:4e3a", 0.11035417396223994`, 
   "; \:8bef\:5dee\:4e3a", 9.072940799978446*^-6],
  Editable->False]], "Print",
 CellChangeTimes->{3.8096660761263943`*^9, 3.8098572651935215`*^9, 
  3.809857317074953*^9, 3.8098573571191044`*^9, 3.8098578150075808`*^9, 
  3.8098578753311977`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[19]:=",ExpressionUUID->"4cd7a6eb-68e2-4534-a705-\
dc2eb3bd7382"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"x0", "=", 
   RowBox[{"Range", "[", 
    RowBox[{"0", ",", "\[Pi]", ",", "0.1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y0", " ", "=", " ", 
   RowBox[{
    RowBox[{"2", "*", "x0"}], " ", "+", "3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"c1", "=", 
  RowBox[{"Plus", "@@", "x0"}]}], "\[IndentingNewLine]", 
 RowBox[{"c2", "=", 
  RowBox[{"Plus", "@@", 
   RowBox[{"(", 
    RowBox[{"x0", "*", "x0"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"c3", "=", 
  RowBox[{"Plus", "@@", "y0"}]}], "\[IndentingNewLine]", 
 RowBox[{"c4", "=", 
  RowBox[{"Plus", "@@", 
   RowBox[{"(", 
    RowBox[{"x0", "*", "y0"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"a0", "=", 
  FractionBox[
   RowBox[{
    RowBox[{"c1", "*", "c4"}], "-", 
    RowBox[{"c2", "*", "c3"}]}], 
   RowBox[{
    SuperscriptBox["c1", "2"], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Length", "[", "x0", "]"}], ")"}], 
     "c2"}]}]]}], "\[IndentingNewLine]", 
 RowBox[{"a1", "=", 
  FractionBox[
   RowBox[{
    RowBox[{"c1", "*", "c3"}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Length", "[", "x0", "]"}], ")"}], "*", "c4"}]}], 
   RowBox[{
    SuperscriptBox["c1", "2"], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Length", "[", "x0", "]"}], ")"}], 
     "c2"}]}]]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8096678683232694`*^9, 3.809668107885133*^9}, {
  3.809668156476121*^9, 3.8096683006400166`*^9}, {3.809668353126767*^9, 
  3.809668519086094*^9}, {3.8096687589508452`*^9, 3.8096687794979925`*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"a8184581-4870-4c2d-8b7a-0927944bf1d2"],

Cell[BoxData["49.6`"], "Output",
 CellChangeTimes->{
  3.809667916608413*^9, 3.8096681979901915`*^9, 3.809668359875881*^9, 
   3.809668399158221*^9, {3.8096685070270476`*^9, 3.8096685198226624`*^9}, {
   3.8096687710308447`*^9, 3.8096687811240396`*^9}},
 CellLabel->"Out[51]=",ExpressionUUID->"360632b9-0fc0-4f79-98a8-d8f94adacbb9"],

Cell[BoxData["104.16000000000001`"], "Output",
 CellChangeTimes->{
  3.809667916608413*^9, 3.8096681979901915`*^9, 3.809668359875881*^9, 
   3.809668399158221*^9, {3.8096685070270476`*^9, 3.8096685198226624`*^9}, {
   3.8096687710308447`*^9, 3.809668781127026*^9}},
 CellLabel->"Out[52]=",ExpressionUUID->"8774612e-293a-48ed-b1ec-fb2f77cd06f9"],

Cell[BoxData["195.2`"], "Output",
 CellChangeTimes->{
  3.809667916608413*^9, 3.8096681979901915`*^9, 3.809668359875881*^9, 
   3.809668399158221*^9, {3.8096685070270476`*^9, 3.8096685198226624`*^9}, {
   3.8096687710308447`*^9, 3.809668781131036*^9}},
 CellLabel->"Out[53]=",ExpressionUUID->"12e0f63b-3de5-4c54-ad11-5c7ffdc2fe99"],

Cell[BoxData["357.12000000000006`"], "Output",
 CellChangeTimes->{
  3.809667916608413*^9, 3.8096681979901915`*^9, 3.809668359875881*^9, 
   3.809668399158221*^9, {3.8096685070270476`*^9, 3.8096685198226624`*^9}, {
   3.8096687710308447`*^9, 3.809668781134034*^9}},
 CellLabel->"Out[54]=",ExpressionUUID->"68d95acc-38d8-4b48-adf4-73b5975a5026"],

Cell[BoxData["2.9999999999999964`"], "Output",
 CellChangeTimes->{
  3.809667916608413*^9, 3.8096681979901915`*^9, 3.809668359875881*^9, 
   3.809668399158221*^9, {3.8096685070270476`*^9, 3.8096685198226624`*^9}, {
   3.8096687710308447`*^9, 3.809668781136033*^9}},
 CellLabel->"Out[55]=",ExpressionUUID->"45910b88-ee1f-47b0-8a44-f570119cbec6"],

Cell[BoxData["2.0000000000000018`"], "Output",
 CellChangeTimes->{
  3.809667916608413*^9, 3.8096681979901915`*^9, 3.809668359875881*^9, 
   3.809668399158221*^9, {3.8096685070270476`*^9, 3.8096685198226624`*^9}, {
   3.8096687710308447`*^9, 3.809668781140031*^9}},
 CellLabel->"Out[56]=",ExpressionUUID->"f30e1b3e-d610-4b9f-9c84-15eeac6117fb"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6570\:503c\:5fae\:79ef\:5206", "Section",
 CellChangeTimes->{{3.7842548128390083`*^9, 
  3.7842548374017773`*^9}},ExpressionUUID->"4c4cd244-da63-4b32-b91b-\
4a7e57e92b9c"],

Cell["\:6570\:503c\:5fae\:5206", "Subsection",
 CellChangeTimes->{{3.811109939300725*^9, 
  3.8111099473367496`*^9}},ExpressionUUID->"4d87c54d-904b-4d40-be76-\
096cc98a664f"],

Cell[CellGroupData[{

Cell["\:6570\:503c\:79ef\:5206", "Subsection",
 CellChangeTimes->{{3.8111099562457285`*^9, 
  3.8111099631867275`*^9}},ExpressionUUID->"e6ee30fe-493f-4667-ae4f-\
ce9435f3d682"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8111099648977256`*^9, 
  3.8111099655197678`*^9}},ExpressionUUID->"2465155c-5b9e-46b8-9c6d-\
2287697ef625"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6c42\:89e3\:5355\:53d8\:91cf\:65b9\:7a0b\:7684\:6839", "Subsection",
 CellChangeTimes->{{3.784254909032833*^9, 3.784254916996373*^9}, {
  3.7842557813473997`*^9, 
  3.78425578711899*^9}},ExpressionUUID->"da8513f7-18f4-432d-a260-\
52900ccedc3e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"NewtonSolve", "[", 
    RowBox[{"f_", ",", "x0_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x1", ",", "x2"}], "}"}], ",", 
     RowBox[{
      RowBox[{"x1", "=", "x0"}], ";", 
      RowBox[{"x2", "=", 
       RowBox[{
        RowBox[{"x1", "-", 
         RowBox[{
          RowBox[{"f", "[", "x1", "]"}], "/", 
          RowBox[{
           RowBox[{"f", "'"}], "[", "x1", "]"}]}]}], "//", "N"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<\:521d\:59cb\:503c\:4e3ax1=\>\"", ",", "x1", ",", 
        "\"\<;  x2=\>\"", ",", "x2", ",", "\"\<; Abs[f(x2)-f(x1) = \>\"", ",", 
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"f", "[", "x2", "]"}], "-", 
          RowBox[{"f", "[", "x1", "]"}]}], "]"}], ",", "\"\<\\n\>\""}], "]"}],
       ";", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{
           RowBox[{"f", "[", "x2", "]"}], "-", 
           RowBox[{"f", "[", "x1", "]"}]}], "]"}], ">", 
         SuperscriptBox["10", 
          RowBox[{"-", "3"}]]}], ",", 
        RowBox[{
         RowBox[{"x1", "=", "x2"}], ";", 
         RowBox[{"x2", "=", 
          RowBox[{
           RowBox[{"x1", "-", 
            RowBox[{
             RowBox[{"f", "[", "x1", "]"}], "/", 
             RowBox[{
              RowBox[{"f", "'"}], "[", "x1", "]"}]}]}], "//", "N"}]}], ";", 
         RowBox[{"Print", "[", 
          RowBox[{
          "\"\<\:65b0\:7684x2\:7684\:503c\:4e3a\>\"", ",", "x2", ",", 
           "\"\<; Abs[f(x2)-f(x1) = \>\"", ",", 
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{
              RowBox[{"f", "[", "x2", "]"}], "-", 
              RowBox[{"f", "[", "x1", "]"}]}], "]"}], "\"\<\\n\>\""}]}], 
          "]"}]}]}], "]"}], ";", "x2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.7842549184741917`*^9, 3.784254952895707*^9, {3.784255812146049*^9, 
   3.784255889674659*^9}, {3.7842559246513443`*^9, 3.784255978191238*^9}, {
   3.78425921530431*^9, 3.7842592460624933`*^9}, {3.784259404105268*^9, 
   3.7842594088071547`*^9}, {3.784259441747972*^9, 3.784259472539418*^9}, {
   3.784259509215129*^9, 3.784259512646577*^9}, {3.784260501954754*^9, 
   3.784260514059711*^9}, {3.7842606359693108`*^9, 3.7842606438191566`*^9}, {
   3.784260878083935*^9, 3.784260879228881*^9}, {3.784260940351721*^9, 
   3.784261145104165*^9}, {3.784261219887669*^9, 3.7842612430720873`*^9}, 
   3.784261305758583*^9, {3.784261762510985*^9, 3.7842618131434603`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"4a5a0d8e-17c0-4cf5-babf-a652b4deab74"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8f9b\:666e\:68ee\:79ef\:5206", "Subsection",
 CellChangeTimes->{{3.784631404778552*^9, 
  3.784631425549345*^9}},ExpressionUUID->"51495d02-ef74-438d-98a0-\
39149e5aa4bd"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SimpsonInt", "[", 
    RowBox[{"f_", ",", "a_", ",", "b_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"h", ",", "x", ",", "y", ",", "int"}], "}"}], ",", 
     RowBox[{
      RowBox[{"h", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "-", "a"}], ")"}], "/", "n"}]}], ";", 
      RowBox[{"x", "=", 
       RowBox[{"Range", "[", 
        RowBox[{"a", ",", "b", ",", "h"}], "]"}]}], ";", 
      RowBox[{"y", "=", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], "//", "N"}]}], ";", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<h is \>\"", ",", "h", ",", "\"\<;  f(x) is \>\"", ",", "y"}], 
       "]"}], ";", 
      RowBox[{"int", "=", 
       RowBox[{
        RowBox[{"h", "/", "3"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"y", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"4", "*", 
           RowBox[{"Total", "[", 
            RowBox[{"y", "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;", "n", ";;", "2"}], "]"}], "]"}], "]"}]}], "+", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"n", "\[GreaterEqual]", "3"}], ",", 
            RowBox[{"2", "*", 
             RowBox[{"Total", "[", 
              RowBox[{"y", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"n", "-", "1"}], ";;", "3", ";;", 
                 RowBox[{"-", "2"}]}], "]"}], "]"}], "]"}]}], ",", "0"}], 
           "]"}], "+", 
          RowBox[{"y", "[", 
           RowBox[{"[", 
            RowBox[{"n", "+", "1"}], "]"}], "]"}]}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<\:79ef\:5206\:7ed3\:679c\:4e3a\:ff1a\>\"", ",", "int"}], 
       "]"}], ";", "int"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7846314492568045`*^9, 3.7846314521946063`*^9}, {
   3.7846317492372956`*^9, 3.7846318536783214`*^9}, {3.78463188525356*^9, 
   3.7846318965060835`*^9}, {3.7846319516783657`*^9, 3.784631977607893*^9}, {
   3.784632057923692*^9, 3.784632102124609*^9}, {3.784632206129297*^9, 
   3.7846322128807216`*^9}, {3.7846323164520845`*^9, 
   3.7846324525854893`*^9}, {3.7846325221081257`*^9, 
   3.7846325454920225`*^9}, {3.7846327061910763`*^9, 3.78463272588251*^9}, {
   3.7846327740367265`*^9, 3.784632774865518*^9}, {3.7846330921781664`*^9, 
   3.784633103548663*^9}, 3.7846331385456147`*^9, {3.784633169104139*^9, 
   3.784633178367874*^9}, {3.7846333191083813`*^9, 3.7846333233079777`*^9}, {
   3.784633991597306*^9, 3.7846340459452143`*^9}, {3.784634154191331*^9, 
   3.7846341542632737`*^9}, {3.7846342006247745`*^9, 3.784634217124338*^9}, {
   3.7846343075736103`*^9, 3.7846343149393973`*^9}, {3.7846344279227552`*^9, 
   3.784634433519579*^9}, {3.784634782464982*^9, 3.7846347911630383`*^9}, {
   3.7846350929903994`*^9, 3.78463512178295*^9}, {3.784635207635825*^9, 
   3.784635230735613*^9}},ExpressionUUID->"ab532d7e-4db9-4e88-a63f-\
de208aa850e8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5e38\:5fae\:5206\:65b9\:7a0b", "Section",
 CellChangeTimes->{{3.7842548502508287`*^9, 
  3.78425486427801*^9}},ExpressionUUID->"27496f8a-2aa8-46c0-98d5-\
b24c59950694"],

Cell[CellGroupData[{

Cell["\:6b27\:62c9\:6cd5", "Subsection",
 CellChangeTimes->{{3.784636443929097*^9, 
  3.7846364512099657`*^9}},ExpressionUUID->"50d8564f-b1d4-4de8-91da-\
13cccdad9287"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EulerDSolve", "[", 
    RowBox[{"g_", ",", "y0_", ",", "a_", ",", "b_", ",", "n_"}], "]"}], ":=", 
   
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"y", ",", "h"}], "}"}], ",", 
     RowBox[{
      RowBox[{"h", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "-", "a"}], ")"}], "/", "n"}]}], ";", 
      RowBox[{"y", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"n", "+", "1"}]}], "]"}]}], ";", 
      RowBox[{
       RowBox[{"y", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", "y0"}], ";", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"y", "[", 
           RowBox[{"[", 
            RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{"y", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "+", 
            RowBox[{"h", "*", 
             RowBox[{"g", "[", 
              RowBox[{
               RowBox[{"a", "+", 
                RowBox[{"i", "*", "h"}]}], ",", 
               RowBox[{"y", "[", 
                RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], "//", "N"}]}], 
         ";", 
         RowBox[{"Print", "[", 
          RowBox[{"\"\<y[[\>\"", ",", 
           RowBox[{"i", "+", "1"}], ",", "\"\<]]=\>\"", ",", 
           RowBox[{"y", "[", 
            RowBox[{"[", 
             RowBox[{"i", "+", "1"}], "]"}], "]"}], ",", "\"\<\\n\>\""}], 
          "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ";", "y"}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.784636465432802*^9, 3.7846366517272854`*^9}, {
  3.7846367191167116`*^9, 
  3.7846367359780693`*^9}},ExpressionUUID->"51176123-7dc0-487e-9233-\
cf0507a07316"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:77e9\:9635\:8fd0\:7b97", "Section",
 CellChangeTimes->{{3.7842548723797398`*^9, 
  3.784254885072989*^9}},ExpressionUUID->"31056acd-b996-4ee8-84ee-\
59626256270a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GaussianSolve", "[", 
   RowBox[{"A_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"index", ",", "n", ",", "c", ",", "newA"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"n", "=", 
      RowBox[{
       RowBox[{"Dimensions", "[", "A", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", 
     RowBox[{"index", "=", 
      RowBox[{"Range", "[", 
       RowBox[{"1", ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"c", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Max", "[", 
         RowBox[{"A", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}], ";", 
     RowBox[{"newA", "=", 
      RowBox[{"Table", "[", "]"}]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.785120154590802*^9, 3.7851201987356052`*^9}, {
  3.7851202588796587`*^9, 3.7851202835731277`*^9}, {3.785120518560421*^9, 
  3.7851205343114967`*^9}, {3.785120594911996*^9, 3.7851205970262012`*^9}, {
  3.785120655763974*^9, 3.7851206567085857`*^9}, {3.785120741816597*^9, 
  3.785120743593693*^9}, {3.785120942256711*^9, 3.785120970359127*^9}, {
  3.785121044655542*^9, 3.7851210984088*^9}, {3.785121151441934*^9, 
  3.785121164470179*^9}, {3.7851213297804537`*^9, 3.785121340883923*^9}, {
  3.7851214060227423`*^9, 
  3.785121413087615*^9}},ExpressionUUID->"2c479c04-cb8a-4968-9ab8-\
150a224995fb"]
}, Open  ]],

Cell["\:504f\:5fae\:5206\:65b9\:7a0b", "Section",
 CellChangeTimes->{{3.784254894678031*^9, 
  3.7842548990747223`*^9}},ExpressionUUID->"565d7f19-1efd-46b0-9d35-\
1a8214823388"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6d4b\:8bd5", "Title",
 CellChangeTimes->{{3.784259264726097*^9, 
  3.784259267303359*^9}},ExpressionUUID->"11a314b5-05a6-4283-a862-\
5722d816ddc5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", "x", "]"}], "\[Equal]", 
    RowBox[{"x", "^", "2"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.784259268218248*^9, 3.78425930013247*^9}, {
  3.7842593626608467`*^9, 3.784259397298234*^9}, {3.784260649917598*^9, 
  3.784260678559026*^9}},ExpressionUUID->"7016a830-9065-43d8-82a7-\
28472cb3e6a6"],

Cell[BoxData[
 FormBox[
  TemplateBox[{
   "NSolve","ifun",
    "\"Inverse functions are being used by \\!\\(\\*FormBox[\\\"NSolve\\\", \
TraditionalForm]\\), so some solutions may not be found; use Reduce for \
complete solution information.\"",2,58,18,20357470137680069872,"Local"},
   "MessageTemplate"], TraditionalForm]], "Message", "MSG",
 CellChangeTimes->{{3.7842606672642813`*^9, 
  3.7842606806718893`*^9}},ExpressionUUID->"f654e48b-c3e9-4def-917d-\
f9a585b7620e"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", "0.7034674224983917`"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", "\[Rule]", 
      RowBox[{"1.5880472646893788`", "\[VeryThinSpace]", "-", 
       RowBox[{"1.5402235010207581`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], 
   "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.7842592941842527`*^9, 3.7842593013840523`*^9}, {
  3.784259374511517*^9, 3.784259398329439*^9}, {3.7842606673216333`*^9, 
  3.784260680722539*^9}},ExpressionUUID->"6d6bc4e0-6c39-46a8-b1d6-\
db479b431d4b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Exp", "[", "x", "]"}], "-", 
    RowBox[{"x", "^", "2"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7842607621595917`*^9, 
  3.784260775986197*^9}},ExpressionUUID->"61c3f0f6-b937-4995-9ab9-\
5c49d11c8fe1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NewtonSolve", "[", 
  RowBox[{"f", ",", 
   RowBox[{"-", "1"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.784260689134822*^9, 3.7842607347650146`*^9}, {
  3.7842607736037607`*^9, 
  3.7842607850876017`*^9}},ExpressionUUID->"e2fd755d-39e4-4234-850f-\
6e898c5ee7fa"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"\:521d\:59cb\:503c\:4e3ax1=\"\>", "\[InvisibleSpace]", 
    RowBox[{"-", "1"}], "\[InvisibleSpace]", "\<\";  x2=\"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"-", "0.7330436052454454`"}], 
    "\[InvisibleSpace]", "\<\"; Abs[f(x2)-f(x1) = \"\>", "\[InvisibleSpace]", 
    "0.5752121108245323`", "\[InvisibleSpace]", "\<\"\\n\"\>"}],
   SequenceForm[
   "\:521d\:59cb\:503c\:4e3ax1=", -1, ";  x2=", -0.7330436052454454, 
    "; Abs[f(x2)-f(x1) = ", 0.5752121108245323, "\n"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.78426107638752*^9, 3.784261114868802*^9}, 
   3.784261249129087*^9, 3.784261312869137*^9, {3.784261768201123*^9, 
   3.7842618183234577`*^9}},ExpressionUUID->"01d924ca-a05f-4a82-bea2-\
e8157506841d"],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"\:65b0\:7684x2\:7684\:503c\:4e3a\"\>", "\[InvisibleSpace]", 
    RowBox[{"-", "0.703807786324133`"}], 
    "\[InvisibleSpace]", "\<\"; Abs[f(x2)-f(x1) = \"\>", "\[InvisibleSpace]", 
    
    RowBox[{"0.05626105646527885`", " ", "\<\"\\n\"\>"}]}],
   SequenceForm[
   "\:65b0\:7684x2\:7684\:503c\:4e3a", -0.703807786324133, 
    "; Abs[f(x2)-f(x1) = ", 0.05626105646527885 "\n"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.78426107638752*^9, 3.784261114868802*^9}, 
   3.784261249129087*^9, 3.784261312869137*^9, {3.784261768201123*^9, 
   3.784261818405772*^9}},ExpressionUUID->"5cc0c145-0057-4e06-b2a3-\
c8c8525d0d0b"],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"\:65b0\:7684x2\:7684\:503c\:4e3a\"\>", "\[InvisibleSpace]", 
    RowBox[{"-", "0.7034674683317975`"}], 
    "\[InvisibleSpace]", "\<\"; Abs[f(x2)-f(x1) = \"\>", "\[InvisibleSpace]", 
    
    RowBox[{"0.0006473043727159289`", " ", "\<\"\\n\"\>"}]}],
   SequenceForm[
   "\:65b0\:7684x2\:7684\:503c\:4e3a", -0.7034674683317975, 
    "; Abs[f(x2)-f(x1) = ", 0.0006473043727159289 "\n"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.78426107638752*^9, 3.784261114868802*^9}, 
   3.784261249129087*^9, 3.784261312869137*^9, {3.784261768201123*^9, 
   3.784261818446116*^9}},ExpressionUUID->"8b282fb5-e957-4379-a106-\
e2b4319d575e"]
}, Open  ]],

Cell[BoxData[
 FormBox[
  RowBox[{"-", "0.7034674683317975`"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.784260701715702*^9, 3.7842607365310183`*^9, 3.784260787849578*^9, 
   3.78426088185806*^9, {3.784260949270995*^9, 3.7842609765573378`*^9}, {
   3.784261076435431*^9, 3.784261114926093*^9}, 3.7842612492259827`*^9, 
   3.784261313102455*^9, {3.78426176836029*^9, 
   3.784261818488934*^9}},ExpressionUUID->"a428f7d2-2c37-47f9-a7f9-\
7ccaad956ed2"]
}, Open  ]],

Cell[BoxData[""], "Input",ExpressionUUID->"ba808e4b-4eaf-40b1-a717-bb357e943937"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   FractionBox["1", 
    RowBox[{
     RowBox[{"Cos", "[", "x", "]"}], "+", "x", "+", 
     RowBox[{"x", "^", "2"}]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.784632641315832*^9, 3.784632675355482*^9}, {
  3.7846334517390757`*^9, 
  3.784633467909827*^9}},ExpressionUUID->"4f18c5d5-45c0-4bec-9853-\
e034ccd3a81b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"SimpsonInt", "[", 
   RowBox[{"f", ",", "0", ",", 
    RowBox[{"2", "*", "\[Pi]"}], ",", "2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.784632652646847*^9, 3.784632669635165*^9}, {
   3.784633485366844*^9, 3.7846334876685266`*^9}, {3.784633604983406*^9, 
   3.7846336050723643`*^9}, 
   3.7846342341485777`*^9},ExpressionUUID->"b7a9230b-1072-4beb-8305-\
9824f9906a37"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"h is \"\>", "\[InvisibleSpace]", "\[Pi]", 
   "\[InvisibleSpace]", "\<\";  f(x) is \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", "0.08325564849595356`", ",", "0.02138506675854946`"}],
     "}"}]}],
  SequenceForm[
  "h is ", Pi, ";  f(x) is ", {1., 0.08325564849595356, 0.02138506675854946}],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7846326784046783`*^9, 3.7846327386038823`*^9, 3.784632785081029*^9, 
   3.7846331094062977`*^9, 3.7846331455626173`*^9, 3.7846332056232653`*^9, 
   3.784633329490423*^9, 3.7846334915462875`*^9, 3.7846336072750893`*^9, 
   3.784634188617609*^9, {3.7846342238444614`*^9, 3.7846342359615335`*^9}, 
   3.784634322233205*^9, 3.7846347999539886`*^9, 3.7846348506409874`*^9, 
   3.7846352370819845`*^9},ExpressionUUID->"d29f618b-5f02-4c31-a6a4-\
186a48292fa0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:79ef\:5206\:7ed3\:679c\:4e3a\:ff1a\"\>", "\[InvisibleSpace]",
    "1.4183323856513157`"}],
  SequenceForm["\:79ef\:5206\:7ed3\:679c\:4e3a\:ff1a", 1.4183323856513157`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7846326784046783`*^9, 3.7846327386038823`*^9, 3.784632785081029*^9, 
   3.7846331094062977`*^9, 3.7846331455626173`*^9, 3.7846332056232653`*^9, 
   3.784633329490423*^9, 3.7846334915462875`*^9, 3.7846336072750893`*^9, 
   3.784634188617609*^9, {3.7846342238444614`*^9, 3.7846342359615335`*^9}, 
   3.784634322233205*^9, 3.7846347999539886`*^9, 3.7846348506409874`*^9, 
   3.784635237105974*^9},ExpressionUUID->"1213688c-98ac-4e57-8e3d-\
600ee2106d78"]
}, Open  ]],

Cell[BoxData["1.4183323856513157`"], "Output",
 CellChangeTimes->{
  3.7846326791077414`*^9, 3.7846327390413594`*^9, 3.784632785174757*^9, 
   3.784633109496229*^9, 3.7846331456515503`*^9, 3.784633205724193*^9, 
   3.784633329585355*^9, 3.784633491644232*^9, 3.7846336078067827`*^9, 
   3.784634188712555*^9, {3.7846342238914366`*^9, 3.784634236103451*^9}, 
   3.7846343223521385`*^9, 3.7846348000659122`*^9, 3.7846348507729125`*^9, 
   3.784635237134948*^9},ExpressionUUID->"e5108861-6c62-4353-8f7d-\
4c2cbe6176c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"1", "/", "6"}], "*", 
  RowBox[{"(", 
   RowBox[{"4", " ", "+", " ", 
    RowBox[{"4", "  ", 
     FractionBox["16", "7"]}], "+", 
    RowBox[{"4", "/", "3"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.7846332291907825`*^9, 3.7846332535308857`*^9}, {
  3.784633337589796*^9, 
  3.784633340788982*^9}},ExpressionUUID->"2cd15d2d-1942-4ef8-a5f1-\
6849c3d29e5c"],

Cell[BoxData[
 FractionBox["152", "63"]], "Output",
 CellChangeTimes->{3.784633254902069*^9, 
  3.7846333452524114`*^9},ExpressionUUID->"74f9525d-fd8e-47ed-89e9-\
22da20afc8f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  FractionBox["152", "63"], "]"}]], "Input",
 NumberMarks->False,ExpressionUUID->"c605e795-5e33-40df-90fb-57913fccef41"],

Cell[BoxData["2.4126984126984126`"], "Output",
 CellChangeTimes->{
  3.7846333473352056`*^9},ExpressionUUID->"677c4b03-0d84-483c-93a5-\
01211881fa1b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7846335489404836`*^9, 
  3.78463359616648*^9}},ExpressionUUID->"0d77be41-d3a6-454d-8ba5-\
d87b3c18fc2b"],

Cell[BoxData["1.1844252743383148`"], "Output",
 CellChangeTimes->{{3.7846335726838837`*^9, 
  3.784633598781947*^9}},ExpressionUUID->"06a492d4-a25d-41cf-acb6-\
435974f406dc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tmpx", "=", 
  RowBox[{"Range", "[", 
   RowBox[{"0", ",", "1", ",", "0.1"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.784633658423868*^9, 
  3.784633672637714*^9}},ExpressionUUID->"5acdb8f1-82ae-4e93-b9a3-\
024555d3c0fa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.`", ",", "0.1`", ",", "0.2`", ",", "0.30000000000000004`", ",", "0.4`", 
   ",", "0.5`", ",", "0.6000000000000001`", ",", "0.7000000000000001`", ",", 
   "0.8`", ",", "0.9`", ",", "1.`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.784633674534623*^9},ExpressionUUID->"876df9fa-91d9-488a-adff-\
2c1be805bb83"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tmpx", "[", 
  RowBox[{"[", 
   RowBox[{"2", ";;", "1", ";;", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7846338992031636`*^9, 3.784633901036115*^9}, 
   3.7846339678858576`*^9},ExpressionUUID->"b22cb1b7-8703-47a7-b752-\
013d8ab3f8bd"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.7846338614497366`*^9, 3.784633904742976*^9, 
  3.7846339695878887`*^9},ExpressionUUID->"e10c68cc-25c9-4e3e-a2c7-\
0b503b298b4f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Total", "[", 
  RowBox[{"tmpx", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"-", "1"}], ";;", "12", ";;", "2"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.784633682912863*^9, 3.7846336927022324`*^9}, {
   3.784633833562704*^9, 3.7846338469100695`*^9}, {3.7846339085278068`*^9, 
   3.78463390882666*^9}, {3.784633940686438*^9, 3.784633975788334*^9}, {
   3.7846343793505416`*^9, 3.7846343795514216`*^9}, {3.784634758850501*^9, 
   3.784634769957165*^9}, {3.784634861958532*^9, 3.7846348757876177`*^9}, 
   3.7846349223739805`*^9, {3.7846350069715967`*^9, 
   3.7846350372452993`*^9}},ExpressionUUID->"8ce4e4d7-3063-406a-be12-\
c67d181fd183"],

Cell[BoxData[
 TemplateBox[{
  "Part","take",
   "\"\:65e0\:6cd5\:5728 \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"0.`\\\", \
\\\",\\\", \\\"0.1`\\\", \\\",\\\", \\\"0.2`\\\", \\\",\\\", \
\\\"0.30000000000000004`\\\", \\\",\\\", \\\"0.4`\\\", \\\",\\\", \
\\\"0.5`\\\", \\\",\\\", \\\"0.6000000000000001`\\\", \\\",\\\", \
\\\"0.7000000000000001`\\\", \\\",\\\", \\\"0.8`\\\", \\\",\\\", \
\\\"0.9`\\\", \\\",\\\", \\\"1.`\\\"}], \\\"}\\\"}]\\) \:4e2d\:63d0\:53d6\
\:4f4d\:7f6e \\!\\(\\*RowBox[{\\\"-\\\", \\\"1\\\"}]\\) \:81f3 \
\\!\\(\\*RowBox[{\\\"12\\\"}]\\).\"",2,55,39,16537782852061938362,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.784635038946291*^9},ExpressionUUID->"c98828ff-9148-4d05-a155-\
eeae1c13f678"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"0.`", "\[VeryThinSpace]", "+", 
    RowBox[{
     RowBox[{"-", "1"}], ";;", "12", ";;", "2"}]}], ",", 
   RowBox[{"0.1`", "\[VeryThinSpace]", "+", 
    RowBox[{
     RowBox[{"-", "1"}], ";;", "12", ";;", "2"}]}], ",", 
   RowBox[{"0.2`", "\[VeryThinSpace]", "+", 
    RowBox[{
     RowBox[{"-", "1"}], ";;", "12", ";;", "2"}]}], ",", 
   RowBox[{"0.30000000000000004`", "\[VeryThinSpace]", "+", 
    RowBox[{
     RowBox[{"-", "1"}], ";;", "12", ";;", "2"}]}], ",", 
   RowBox[{"0.4`", "\[VeryThinSpace]", "+", 
    RowBox[{
     RowBox[{"-", "1"}], ";;", "12", ";;", "2"}]}], ",", 
   RowBox[{"0.5`", "\[VeryThinSpace]", "+", 
    RowBox[{
     RowBox[{"-", "1"}], ";;", "12", ";;", "2"}]}], ",", 
   RowBox[{"0.6000000000000001`", "\[VeryThinSpace]", "+", 
    RowBox[{
     RowBox[{"-", "1"}], ";;", "12", ";;", "2"}]}], ",", 
   RowBox[{"0.7000000000000001`", "\[VeryThinSpace]", "+", 
    RowBox[{
     RowBox[{"-", "1"}], ";;", "12", ";;", "2"}]}], ",", 
   RowBox[{"0.8`", "\[VeryThinSpace]", "+", 
    RowBox[{
     RowBox[{"-", "1"}], ";;", "12", ";;", "2"}]}], ",", 
   RowBox[{"0.9`", "\[VeryThinSpace]", "+", 
    RowBox[{
     RowBox[{"-", "1"}], ";;", "12", ";;", "2"}]}], ",", 
   RowBox[{"1.`", "\[VeryThinSpace]", "+", 
    RowBox[{
     RowBox[{"-", "1"}], ";;", "12", ";;", "2"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7846338482622643`*^9, 3.7846339114051533`*^9, {3.7846339528854403`*^9, 
   3.784633977560319*^9}, 3.784634381281439*^9, 3.7846347729264464`*^9, {
   3.784634863844445*^9, 3.7846348775176306`*^9}, 3.7846349245227427`*^9, {
   3.7846350100518174`*^9, 
   3.784635039008258*^9}},ExpressionUUID->"a743a977-df3b-4252-9782-\
28daebdde5e9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.7846355013398743`*^9, 
  3.7846355348526745`*^9}},ExpressionUUID->"f662c590-d0a7-476b-9b0f-\
759a4a64624d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NDSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"f", "'"}], "[", "x", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"Exp", "[", "x", "]"}], "-", 
       RowBox[{"f", "[", "x", "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"f", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", "f", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.784635441330196*^9, 3.7846354917143803`*^9}, {
  3.7846355439634976`*^9, 3.784635566553579*^9}, {3.784635600079378*^9, 
  3.7846356002063103`*^9}},ExpressionUUID->"df740d00-9c63-4c8f-8b45-\
eb13aa10e567"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"f", "\[Rule]", 
    InterpretationBox[
     RowBox[{
      TagBox["InterpolatingFunction",
       "SummaryHead"], "[", 
      DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
       "Ready"}, 
       TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
               PaneBox[
                ButtonBox[
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEBitmaps", "SquarePlusIconMedium"]], 
                 ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                 None, Evaluator -> Automatic, Method -> "Preemptive"], 
                Alignment -> {Center, Center}, ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
               GraphicsBox[{{{{}, {}, 
                   TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwVhwsw2wcAh1OTFmU6UqyXzXtotVrnVdTPo1fB2o6u8+iYozbimj4wdtRj
pg86ZNSjzmPVtOhocVWPomp03SpLqvGaRDyioo3+/0lEVtdZ+919991nHnM6
JE6DQqF4vvN9r08FlcodQ7w+oLyHwLDdJo+E1mIwbCThBe8+Ra9ZwzLuV5Dd
zQcjNQgwqyLE+hONoLsZ2LpRCYju6Jf5b2vFkvqK7w5tAg7ckviThfcgdRZz
Ln5IwDE1LPVhfxeiJOnND2gEIqf72v4N7MM+zlfye3QCJ1gVBpnRAyiayyof
sSYw205KP00ZBJFX8gPTgUD6eFVoS8cQhizN2gw9CLC8v40V8h/DcNOZp2b+
BNTfd+icnXuCbZVbKrS/JFBeEMpQmD5FWrYD41AsgUKJidV2Vy5ub+bW3zxH
YKRw+1+/HOAh0+2RT9lPBGrYs8GHI/gI802dTy8nQL/fe2s89hk81+mJfk0E
bgQ9YkzmjkJr17m3kn4CExrjnU3Fz8GxSL0WICBgZEdLVrQLIP7awXVYRsDM
hXZ+hT+GU/bG89ZbSIzHWR3vmh5HB2/cRtOMRIVmZNr62wl0ZlJ7Aj1JUIc5
TD3dKVCveihWQkl4sVqb+LR/UD4ySnNKJpGTJ3HWc5rGhrWpy75SEmf67YpN
vIVIjJ68ENhOIiG+zLkqRgR1WndP5BiJPeohW17WDHJbwisd35A4KvgxZfmg
GPz8zTZiuhy6iy4ZtgIxTkk/2y/0k8NUK4nJPTGLazeTbNgJclRUF2eNzMwi
OlkvZrBIjjKmr7vW6Tm4/mGzt6pbjmVGxnSTcg7i+i/aFufl+D0q0Opy3jz2
OIv0TA0UUObVHftbdwG3KdnnG7wUyDebaGSxFzDKT/KpS1SAI6/nBJhL0O+k
iBNXK2A0tnbpyi0JZA1/+tlzFdAlZz7aun8RhM4bP11NJeKzGgfmHi9ijJF4
KNddiR2m62EWh1/AeKDAqJelRLBKfLVa+AK/+fr8vNKghEh0pDv75BLYUg9J
n1gJvnsNtXdpCce17aNEJqsI4OaonNKkSKZG3A8PXYVxkoxL+0+KOoN8l50l
q2AelX2+t2gZbF6wf5NgFZa1XPLGJy9h6KZv3mCigiPFLTPn+kvEqTrLmsNU
GK5wvlvp+AoLIZ67ebUqtPr2PPm46xWCWto0ns+rYG4luCQIlKGa9rD5iMMa
VGk81vKkDLO1beUH0tdgMXPM87tvVlBKF+5+MLiG0YzEO6bECoQ1F5/Z0NSY
2rVVxzv1NXYmn7Vbj1aj48KiamPjNaLZtNiUu2r8D/Ms5ls=
                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$4176#1"]& ]}}, {}, {}}, {
                DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                 AxesOrigin -> {0, 1.0000000000000007`}, 
                 FrameTicks -> {{{}, {}}, {{}, {}}}, 
                 GridLines -> {None, None}, DisplayFunction -> Identity, 
                 PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                 All, DisplayFunction -> Identity, AspectRatio -> 1, 
                 Axes -> {False, False}, AxesLabel -> {None, None}, 
                 AxesOrigin -> {0, 1.0000000000000007`}, DisplayFunction :> 
                 Identity, Frame -> {{True, True}, {True, True}}, 
                 FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                 Directive[
                   Opacity[0.5], 
                   Thickness[Tiny], 
                   RGBColor[0.368417, 0.506779, 0.709798]], 
                 FrameTicks -> {{None, None}, {None, None}}, 
                 GridLines -> {None, None}, GridLinesStyle -> Directive[
                   GrayLevel[0.5, 0.4]], ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                 Method -> {
                  "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                   AbsolutePointSize[6], "ScalingFunctions" -> None, 
                   "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                 PlotRange -> {{0., 1.}, {1.0000000000000007`, 
                  1.543080698998061}}, PlotRangeClipping -> True, 
                 PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
               GridBox[{{
                  RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "1.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               PaneBox[
                ButtonBox[
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEBitmaps", "SquareMinusIconMedium"]], 
                 ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                 None, Evaluator -> Automatic, Method -> "Preemptive"], 
                Alignment -> {Center, Center}, ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
               GraphicsBox[{{{{}, {}, 
                   TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwVhwsw2wcAh1OTFmU6UqyXzXtotVrnVdTPo1fB2o6u8+iYozbimj4wdtRj
pg86ZNSjzmPVtOhocVWPomp03SpLqvGaRDyioo3+/0lEVtdZ+919991nHnM6
JE6DQqF4vvN9r08FlcodQ7w+oLyHwLDdJo+E1mIwbCThBe8+Ra9ZwzLuV5Dd
zQcjNQgwqyLE+hONoLsZ2LpRCYju6Jf5b2vFkvqK7w5tAg7ckviThfcgdRZz
Ln5IwDE1LPVhfxeiJOnND2gEIqf72v4N7MM+zlfye3QCJ1gVBpnRAyiayyof
sSYw205KP00ZBJFX8gPTgUD6eFVoS8cQhizN2gw9CLC8v40V8h/DcNOZp2b+
BNTfd+icnXuCbZVbKrS/JFBeEMpQmD5FWrYD41AsgUKJidV2Vy5ub+bW3zxH
YKRw+1+/HOAh0+2RT9lPBGrYs8GHI/gI802dTy8nQL/fe2s89hk81+mJfk0E
bgQ9YkzmjkJr17m3kn4CExrjnU3Fz8GxSL0WICBgZEdLVrQLIP7awXVYRsDM
hXZ+hT+GU/bG89ZbSIzHWR3vmh5HB2/cRtOMRIVmZNr62wl0ZlJ7Aj1JUIc5
TD3dKVCveihWQkl4sVqb+LR/UD4ySnNKJpGTJ3HWc5rGhrWpy75SEmf67YpN
vIVIjJ68ENhOIiG+zLkqRgR1WndP5BiJPeohW17WDHJbwisd35A4KvgxZfmg
GPz8zTZiuhy6iy4ZtgIxTkk/2y/0k8NUK4nJPTGLazeTbNgJclRUF2eNzMwi
OlkvZrBIjjKmr7vW6Tm4/mGzt6pbjmVGxnSTcg7i+i/aFufl+D0q0Opy3jz2
OIv0TA0UUObVHftbdwG3KdnnG7wUyDebaGSxFzDKT/KpS1SAI6/nBJhL0O+k
iBNXK2A0tnbpyi0JZA1/+tlzFdAlZz7aun8RhM4bP11NJeKzGgfmHi9ijJF4
KNddiR2m62EWh1/AeKDAqJelRLBKfLVa+AK/+fr8vNKghEh0pDv75BLYUg9J
n1gJvnsNtXdpCce17aNEJqsI4OaonNKkSKZG3A8PXYVxkoxL+0+KOoN8l50l
q2AelX2+t2gZbF6wf5NgFZa1XPLGJy9h6KZv3mCigiPFLTPn+kvEqTrLmsNU
GK5wvlvp+AoLIZ67ebUqtPr2PPm46xWCWto0ns+rYG4luCQIlKGa9rD5iMMa
VGk81vKkDLO1beUH0tdgMXPM87tvVlBKF+5+MLiG0YzEO6bECoQ1F5/Z0NSY
2rVVxzv1NXYmn7Vbj1aj48KiamPjNaLZtNiUu2r8D/Ms5ls=
                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$4176#1"]& ]}}, {}, {}}, {
                DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                 AxesOrigin -> {0, 1.0000000000000007`}, 
                 FrameTicks -> {{{}, {}}, {{}, {}}}, 
                 GridLines -> {None, None}, DisplayFunction -> Identity, 
                 PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                 All, DisplayFunction -> Identity, AspectRatio -> 1, 
                 Axes -> {False, False}, AxesLabel -> {None, None}, 
                 AxesOrigin -> {0, 1.0000000000000007`}, DisplayFunction :> 
                 Identity, Frame -> {{True, True}, {True, True}}, 
                 FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                 Directive[
                   Opacity[0.5], 
                   Thickness[Tiny], 
                   RGBColor[0.368417, 0.506779, 0.709798]], 
                 FrameTicks -> {{None, None}, {None, None}}, 
                 GridLines -> {None, None}, GridLinesStyle -> Directive[
                   GrayLevel[0.5, 0.4]], ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                 Method -> {
                  "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                   AbsolutePointSize[6], "ScalingFunctions" -> None, 
                   "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                 PlotRange -> {{0., 1.}, {1.0000000000000007`, 
                  1.543080698998061}}, PlotRangeClipping -> True, 
                 PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
               GridBox[{{
                  RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "1.`"}], "}"}], "}"}], 
                    "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`open$$], ImageSize -> Automatic]},
        "SummaryPanel",
        DisplayFunction->(
         ButtonBox[#, Active -> False, Alignment -> Left, 
          Appearance -> {
           "Default" -> 
            FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, 
          FrameMargins -> 7, BaseStyle -> {}, 
          DefaultBaseStyle -> {"Panel", Background -> None}, BaselinePosition -> 
          Baseline]& )],
       DynamicModuleValues:>{}], "]"}],
     InterpolatingFunction[{{0., 1.}}, {
      5, 7, 1, {40}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
       False}, CompressedData["
1:eJxTTMoPSmViYGBgBGINBgRYeTlq5vwXUvYQWste7dCrD/z10+3bWVyCTtgv
tY+y33HLn3utvbjttI3Z2ZvsnfSLAj6t3Gqfp+j3vuLFDvuZwlp9/9X22G9i
PqGe0HzAftrfqg6Hz4fsa77rvlRIPmqf8PGBJ+Pl4/aiD7/+fXr1uP2pC1yb
Tt04bl9/QD5t/e3j9sYbTKSm3Dtu/2K+57mKh8ftg+qLzZyeH7ffHTd3Hvfb
4/aqdsfZrn46bu/yI1Nis84J++RNPFoT007YN+Wst85fcMJ+gVqQr++tE/bX
stf+/Slz2p57I8e6ZfFn7R2/JccFLzpvv3tuPHvDpwv2YQ698deEL9lPYp97
0zXkuv3Zc2uCt065Y8/ifS9t0qsH9ov0nimf6nps7yD07gGj9jP7e1+/zrU8
/cJeUFPzYs6/1/adU6ZkmP1/aw8JtQ/2ANXlnpc=
      "], {
      Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 
       24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58,
        60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80}, CompressedData["
1:eJw1y30s1HEABvA7VIYiV166WN5mXa1ZC2freggZIiRNWV7qVsi8zdtcYgoz
nBadaMlbVDRLRlLoxu/nbV5XaTKZOCV978y55q3fbJ6/ns/2PGZh0X5CNovF
8mHthGCnuWuNq2073fOgq+wQJk1FmtsOEXBdZTwsyT/rH2ATdJnXlRTfleBr
1h9+tjpBelriWIBTDZxdSKVkN0EIHWzqqduAVLl/epkW40VcEUW/wZauUFa/
j0CXWjEobGzGoxvf/G5yCGLmVJwcRSsGthLlfUYEYpXgSZZtO9ocz1iamxOU
9Cx84oo7EXjPv0p1nEDPuCZpQ0OKjdJjkRccmL8yilUl6oatzvwzazcCwxQP
tpuSwqgdX8VnHC0Oz+f/o9Cf8NLXg7GPTSuXt05B2C9ouMq4xIrXwN2iMOeg
0IpiPDTS4bRXjcZDKRWRxjhZkjKxqUEj8kjziQrG/J/XLWa0aAQYW69JGYtP
zaR069HI7TQZnmP8bn11ss6ARqmBr9LFncDs3K74fF8aenm1Mc89CDSVyeyk
PBra+uHQPk8wPRVcJKRoVBVPhcV7EcRmdNsHqvWiSdDBPx1EEDoemrHp04+4
gtXYi7eZ/SxlMloxCEeXgsttdwiG+Zkh6itD0M+z8IorJAjaI54PsRpBY6T3
iKiawLI49cFT31GUWVTvt+bIQQYWssMnvqCR3RLhUi6HUbu9NCD3O0Re7jk9
7grI4g7ncFt+QKe6Pm2Ms4xFm4yCx9Qs+sLf91Kby7CTOGcurc0jPquphq+z
grP1XU4Vgb+R+mq6cuK+Es4fd3/gvv2LWkOdokviVfh5J7446inHyWtRtxIa
VZD84r0uH1TgPz1ZNAo=
       "]}, {Automatic}],
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.784635546364094*^9, 3.7846355700235777`*^9}, {
  3.7846356023610783`*^9, 
  3.7846356227204347`*^9}},ExpressionUUID->"4b9ce6be-57a9-4d11-b18d-\
b66f4bec94df"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%8", "\[LeftDoubleBracket]", 
  RowBox[{"1", ",", "1", ",", "2"}], "\[RightDoubleBracket]"}]], "Input",
 NumberMarks->False,ExpressionUUID->"7c50eedc-d319-4ad0-8f13-a70d2ead451a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["InterpolatingFunction",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource[
               "FEBitmaps", "SquarePlusIconMedium"]], 
              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
              Evaluator -> Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{{{{}, {}, 
                TagBox[{
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  LineBox[CompressedData["
1:eJwVhwsw2wcAh1OTFmU6UqyXzXtotVrnVdTPo1fB2o6u8+iYozbimj4wdtRj
pg86ZNSjzmPVtOhocVWPomp03SpLqvGaRDyioo3+/0lEVtdZ+919991nHnM6
JE6DQqF4vvN9r08FlcodQ7w+oLyHwLDdJo+E1mIwbCThBe8+Ra9ZwzLuV5Dd
zQcjNQgwqyLE+hONoLsZ2LpRCYju6Jf5b2vFkvqK7w5tAg7ckviThfcgdRZz
Ln5IwDE1LPVhfxeiJOnND2gEIqf72v4N7MM+zlfye3QCJ1gVBpnRAyiayyof
sSYw205KP00ZBJFX8gPTgUD6eFVoS8cQhizN2gw9CLC8v40V8h/DcNOZp2b+
BNTfd+icnXuCbZVbKrS/JFBeEMpQmD5FWrYD41AsgUKJidV2Vy5ub+bW3zxH
YKRw+1+/HOAh0+2RT9lPBGrYs8GHI/gI802dTy8nQL/fe2s89hk81+mJfk0E
bgQ9YkzmjkJr17m3kn4CExrjnU3Fz8GxSL0WICBgZEdLVrQLIP7awXVYRsDM
hXZ+hT+GU/bG89ZbSIzHWR3vmh5HB2/cRtOMRIVmZNr62wl0ZlJ7Aj1JUIc5
TD3dKVCveihWQkl4sVqb+LR/UD4ySnNKJpGTJ3HWc5rGhrWpy75SEmf67YpN
vIVIjJ68ENhOIiG+zLkqRgR1WndP5BiJPeohW17WDHJbwisd35A4KvgxZfmg
GPz8zTZiuhy6iy4ZtgIxTkk/2y/0k8NUK4nJPTGLazeTbNgJclRUF2eNzMwi
OlkvZrBIjjKmr7vW6Tm4/mGzt6pbjmVGxnSTcg7i+i/aFufl+D0q0Opy3jz2
OIv0TA0UUObVHftbdwG3KdnnG7wUyDebaGSxFzDKT/KpS1SAI6/nBJhL0O+k
iBNXK2A0tnbpyi0JZA1/+tlzFdAlZz7aun8RhM4bP11NJeKzGgfmHi9ijJF4
KNddiR2m62EWh1/AeKDAqJelRLBKfLVa+AK/+fr8vNKghEh0pDv75BLYUg9J
n1gJvnsNtXdpCce17aNEJqsI4OaonNKkSKZG3A8PXYVxkoxL+0+KOoN8l50l
q2AelX2+t2gZbF6wf5NgFZa1XPLGJy9h6KZv3mCigiPFLTPn+kvEqTrLmsNU
GK5wvlvp+AoLIZ67ebUqtPr2PPm46xWCWto0ns+rYG4luCQIlKGa9rD5iMMa
VGk81vKkDLO1beUH0tdgMXPM87tvVlBKF+5+MLiG0YzEO6bECoQ1F5/Z0NSY
2rVVxzv1NXYmn7Vbj1aj48KiamPjNaLZtNiUu2r8D/Ms5ls=
                   "]]}, 
                 Annotation[#, "Charting`Private`Tag$4434#1"]& ]}}, {}, {}}, {
             DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
              AxesOrigin -> {0, 1.0000000000000007`}, 
              FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, 
              DisplayFunction -> Identity, PlotRangePadding -> {{
                 Scaled[0.1], 
                 Scaled[0.1]}, {
                 Scaled[0.1], 
                 Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
              All, DisplayFunction -> Identity, AspectRatio -> 1, 
              Axes -> {False, False}, AxesLabel -> {None, None}, 
              AxesOrigin -> {0, 1.0000000000000007`}, DisplayFunction :> 
              Identity, Frame -> {{True, True}, {True, True}}, 
              FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
              Directive[
                Opacity[0.5], 
                Thickness[Tiny], 
                RGBColor[0.368417, 0.506779, 0.709798]], 
              FrameTicks -> {{None, None}, {None, None}}, 
              GridLines -> {None, None}, GridLinesStyle -> Directive[
                GrayLevel[0.5, 0.4]], ImageSize -> 
              Dynamic[{
                Automatic, 
                 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                  Magnification])}], 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                AbsolutePointSize[6], "ScalingFunctions" -> None, 
                "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
              PlotRange -> {{0., 1.}, {1.0000000000000007`, 
               1.543080698998061}}, PlotRangeClipping -> True, 
              PlotRangePadding -> {{
                 Scaled[0.1], 
                 Scaled[0.1]}, {
                 Scaled[0.1], 
                 Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "1.`"}], "}"}], "}"}], 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"scalar\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource[
               "FEBitmaps", "SquareMinusIconMedium"]], 
              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
              Evaluator -> Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{{{{}, {}, 
                TagBox[{
                  Directive[
                   Opacity[1.], 
                   RGBColor[0.368417, 0.506779, 0.709798], 
                   AbsoluteThickness[1]], 
                  LineBox[CompressedData["
1:eJwVhwsw2wcAh1OTFmU6UqyXzXtotVrnVdTPo1fB2o6u8+iYozbimj4wdtRj
pg86ZNSjzmPVtOhocVWPomp03SpLqvGaRDyioo3+/0lEVtdZ+919991nHnM6
JE6DQqF4vvN9r08FlcodQ7w+oLyHwLDdJo+E1mIwbCThBe8+Ra9ZwzLuV5Dd
zQcjNQgwqyLE+hONoLsZ2LpRCYju6Jf5b2vFkvqK7w5tAg7ckviThfcgdRZz
Ln5IwDE1LPVhfxeiJOnND2gEIqf72v4N7MM+zlfye3QCJ1gVBpnRAyiayyof
sSYw205KP00ZBJFX8gPTgUD6eFVoS8cQhizN2gw9CLC8v40V8h/DcNOZp2b+
BNTfd+icnXuCbZVbKrS/JFBeEMpQmD5FWrYD41AsgUKJidV2Vy5ub+bW3zxH
YKRw+1+/HOAh0+2RT9lPBGrYs8GHI/gI802dTy8nQL/fe2s89hk81+mJfk0E
bgQ9YkzmjkJr17m3kn4CExrjnU3Fz8GxSL0WICBgZEdLVrQLIP7awXVYRsDM
hXZ+hT+GU/bG89ZbSIzHWR3vmh5HB2/cRtOMRIVmZNr62wl0ZlJ7Aj1JUIc5
TD3dKVCveihWQkl4sVqb+LR/UD4ySnNKJpGTJ3HWc5rGhrWpy75SEmf67YpN
vIVIjJ68ENhOIiG+zLkqRgR1WndP5BiJPeohW17WDHJbwisd35A4KvgxZfmg
GPz8zTZiuhy6iy4ZtgIxTkk/2y/0k8NUK4nJPTGLazeTbNgJclRUF2eNzMwi
OlkvZrBIjjKmr7vW6Tm4/mGzt6pbjmVGxnSTcg7i+i/aFufl+D0q0Opy3jz2
OIv0TA0UUObVHftbdwG3KdnnG7wUyDebaGSxFzDKT/KpS1SAI6/nBJhL0O+k
iBNXK2A0tnbpyi0JZA1/+tlzFdAlZz7aun8RhM4bP11NJeKzGgfmHi9ijJF4
KNddiR2m62EWh1/AeKDAqJelRLBKfLVa+AK/+fr8vNKghEh0pDv75BLYUg9J
n1gJvnsNtXdpCce17aNEJqsI4OaonNKkSKZG3A8PXYVxkoxL+0+KOoN8l50l
q2AelX2+t2gZbF6wf5NgFZa1XPLGJy9h6KZv3mCigiPFLTPn+kvEqTrLmsNU
GK5wvlvp+AoLIZ67ebUqtPr2PPm46xWCWto0ns+rYG4luCQIlKGa9rD5iMMa
VGk81vKkDLO1beUH0tdgMXPM87tvVlBKF+5+MLiG0YzEO6bECoQ1F5/Z0NSY
2rVVxzv1NXYmn7Vbj1aj48KiamPjNaLZtNiUu2r8D/Ms5ls=
                   "]]}, 
                 Annotation[#, "Charting`Private`Tag$4434#1"]& ]}}, {}, {}}, {
             DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
              AxesOrigin -> {0, 1.0000000000000007`}, 
              FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, 
              DisplayFunction -> Identity, PlotRangePadding -> {{
                 Scaled[0.1], 
                 Scaled[0.1]}, {
                 Scaled[0.1], 
                 Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
              All, DisplayFunction -> Identity, AspectRatio -> 1, 
              Axes -> {False, False}, AxesLabel -> {None, None}, 
              AxesOrigin -> {0, 1.0000000000000007`}, DisplayFunction :> 
              Identity, Frame -> {{True, True}, {True, True}}, 
              FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
              Directive[
                Opacity[0.5], 
                Thickness[Tiny], 
                RGBColor[0.368417, 0.506779, 0.709798]], 
              FrameTicks -> {{None, None}, {None, None}}, 
              GridLines -> {None, None}, GridLinesStyle -> Directive[
                GrayLevel[0.5, 0.4]], ImageSize -> 
              Dynamic[{
                Automatic, 
                 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                  Magnification])}], 
              Method -> {
               "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                AbsolutePointSize[6], "ScalingFunctions" -> None, 
                "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
              PlotRange -> {{0., 1.}, {1.0000000000000007`, 
               1.543080698998061}}, PlotRangeClipping -> True, 
              PlotRangePadding -> {{
                 Scaled[0.1], 
                 Scaled[0.1]}, {
                 Scaled[0.1], 
                 Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"0.`", ",", "1.`"}], "}"}], "}"}], 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"scalar\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["3", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"Hermite\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["False", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel",
     DisplayFunction->(
      ButtonBox[#, Active -> False, Alignment -> Left, 
       Appearance -> {
        "Default" -> 
         FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, 
       FrameMargins -> 7, BaseStyle -> {}, 
       DefaultBaseStyle -> {"Panel", Background -> None}, BaselinePosition -> 
       Baseline]& )],
    DynamicModuleValues:>{}], "]"}],
  InterpolatingFunction[{{0., 1.}}, {
   5, 7, 1, {40}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData["

1:eJxTTMoPSmViYGBgBGINBgRYeTlq5vwXUvYQWste7dCrD/z10+3bWVyCTtgv
tY+y33HLn3utvbjttI3Z2ZvsnfSLAj6t3Gqfp+j3vuLFDvuZwlp9/9X22G9i
PqGe0HzAftrfqg6Hz4fsa77rvlRIPmqf8PGBJ+Pl4/aiD7/+fXr1uP2pC1yb
Tt04bl9/QD5t/e3j9sYbTKSm3Dtu/2K+57mKh8ftg+qLzZyeH7ffHTd3Hvfb
4/aqdsfZrn46bu/yI1Nis84J++RNPFoT007YN+Wst85fcMJ+gVqQr++tE/bX
stf+/Slz2p57I8e6ZfFn7R2/JccFLzpvv3tuPHvDpwv2YQ698deEL9lPYp97
0zXkuv3Zc2uCt065Y8/ifS9t0qsH9ov0nimf6nps7yD07gGj9jP7e1+/zrU8
/cJeUFPzYs6/1/adU6ZkmP1/aw8JtQ/2ANXlnpc=
   "], {
   Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 
    26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 
    62, 64, 66, 68, 70, 72, 74, 76, 78, 80}, CompressedData["
1:eJw1y30s1HEABvA7VIYiV166WN5mXa1ZC2freggZIiRNWV7qVsi8zdtcYgoz
nBadaMlbVDRLRlLoxu/nbV5XaTKZOCV978y55q3fbJ6/ns/2PGZh0X5CNovF
8mHthGCnuWuNq2073fOgq+wQJk1FmtsOEXBdZTwsyT/rH2ATdJnXlRTfleBr
1h9+tjpBelriWIBTDZxdSKVkN0EIHWzqqduAVLl/epkW40VcEUW/wZauUFa/
j0CXWjEobGzGoxvf/G5yCGLmVJwcRSsGthLlfUYEYpXgSZZtO9ocz1iamxOU
9Cx84oo7EXjPv0p1nEDPuCZpQ0OKjdJjkRccmL8yilUl6oatzvwzazcCwxQP
tpuSwqgdX8VnHC0Oz+f/o9Cf8NLXg7GPTSuXt05B2C9ouMq4xIrXwN2iMOeg
0IpiPDTS4bRXjcZDKRWRxjhZkjKxqUEj8kjziQrG/J/XLWa0aAQYW69JGYtP
zaR069HI7TQZnmP8bn11ss6ARqmBr9LFncDs3K74fF8aenm1Mc89CDSVyeyk
PBra+uHQPk8wPRVcJKRoVBVPhcV7EcRmdNsHqvWiSdDBPx1EEDoemrHp04+4
gtXYi7eZ/SxlMloxCEeXgsttdwiG+Zkh6itD0M+z8IorJAjaI54PsRpBY6T3
iKiawLI49cFT31GUWVTvt+bIQQYWssMnvqCR3RLhUi6HUbu9NCD3O0Re7jk9
7grI4g7ncFt+QKe6Pm2Ms4xFm4yCx9Qs+sLf91Kby7CTOGcurc0jPquphq+z
grP1XU4Vgb+R+mq6cuK+Es4fd3/gvv2LWkOdokviVfh5J7446inHyWtRtxIa
VZD84r0uH1TgPz1ZNAo=
    "]}, {Automatic}],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.784635625002118*^9},ExpressionUUID->"c1a78120-20f4-45a3-90af-\
b35edd11385d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"%9", "[", "\[FormalX]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[FormalX]", ",", "0.`", ",", "1.`"}], "}"}]}], "]"}]], "Input",
 NumberMarks->False,ExpressionUUID->"bd086e3d-f233-4f0c-8858-7be03284f14a"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1Hk01VsbB3Az5c1YiUjGSjokQ7nVtyIKKVMoY4qSsdwKCV3KeCguypiD
QscpERlC3LoVmnQpQpJk+h1xOE28215rr70+/+3v8zx7Kx3xtz7Gx8PDk032
wml2bPhV41e77QI8C4sNASO5gD5ZXRQ6BIkveFNuRtY9WWOA105vwYPyqpFn
1S1Rb3AmaMHmbZ3l2bK2UPrV2bpg1QSFwnlFR3hbhmznJf5l5pHuru6CDJrz
0wWPRHW0uKe5ozQrwpeP2P7obP1V2aMoyBjU4CduMZKras7yRKRyLK8AsbbK
tjvTiidgZOg3ueAsPrdiNcZJjPal/BAkFhm4mH9Q3Q/npH/ICxPX9L9ua7YN
wEhHnoMIccCBo2ZOaYHYqRrDXET8QeuyUaJsEHJ8VjD+R5yau6JR7fCfKDjW
ZCRGbCZesvVh1hkkj5X8Fie+P9GqRykGY3kB6qWJfVxcyi+7h+Bux8ijZcTK
7RRtNSMUG1P++yhDTGdKrbVSv4D+B/4n5Yl3KxQUfPUKh4Sywn+riC88vi7R
ZBsB1RWih5SIdfU1Ex3TIvGLeYupTpy3bP+lONkoeEeM/KVDHNqW3nKwJgrN
9lnVesQHo/v5VA5Hg6eeLrSF+H+cwPDarEvQ2Kg3AeJzHannxhRjsbUxZsyS
2Cbhw/3qxljUC2HUmphmrM6Jco+Darcev/1CP+9VBSow4pG34fMFV2KrlPfe
lup02AWbFQYSa5qrFMs9oWOeJuh3ZqHe/D5fhrySkHSK50AoseuDubsNtslw
ZlS7RhMvW5dMc0i7gvulWmXXiSNF7q2JlU2Fq/1m4WfEGqZXYsoDUrHyqMrE
S+LX0f5fu5+kInNX3bfOhfnh1yylnfkbn4JmbYeIH/8uoHW8TkNmWUqYAC/J
O5Wmp5hwDXONea4mxJUb/0zb8+kaMqcuKO0ndgmwmQ00vI4GBzFeB2LWuPiD
luHryKjZIetNbD0cs9V7dxau9kwxk4gzPoQYVc7loOBayvF+4p3yjgW9drm4
MR0lOEo8cshAUISZC7WLaxo5xKvGgj2YG/JQrxtBF+Vjw/+EvhpPTx70uOFJ
m4mljrJuFW7Ox25utXIGsYPjDRZ7sgD9PRJ0X342qG7bxflyhaCbGY6HEF9y
ETlmY1SIqn4Tzxjiex7+cvdTC3HGWLqIQSzmty061KAI4T8vO3UT/3Px3SGh
sJuoXfOxYL8AGzq3JYXkRUrQfc6aYS7IxlPaP25t2iWgbnvDidjt7rnaC44l
sIzz5vgQJ97vC/hYUgL2DiUWnXi4kdldtK8UDdnejm+Ic97uvbsx5TYuLfON
dRdiQ3Q+0sl0FQuJEiscrwiTep2wd9E0YWFa4lJ7AbFqh6abpB8LezP7nKqJ
txd3enTXs1C7z66lj/hBcVplFe0OGtaZP9QSYWPcZqzOvP0OLB+6uXQQ291K
f356STnCHDft115M3rfzRQtPpXKkpEsNmBAPSPm2OeiV42/XD4nOxP5hu15s
cy6HR6KedjxxrPX4a2FmOVSuSOV9Ia7/tet9psU9HCxR3lAoyoaa1cRwc3wF
hEZu/tJZwoZcuKmh140KSDTs6LEklmDmxS+uqkD5i03vvIl/iNjQrAYq0MxY
u55B/LKx6nTv5kpIy+zTWibGRoh25Bz3cyXs5POq54jbxZcupe2ogssBxY4v
Emycbd+CjOkH6JOo0pVaRvpHq/z8VKQGPqW2UpuICxK1E37K1+Cn3NVFtsSv
LNa8c9ldA8XgMeM04vXPl55WS6tBxEZFauVyNvqeUEXlBrW4efW8pKYMG6ZN
hWJtIXXQiNGhu8qyIVMh2cvL2wBORfUZ6VXkvxowan2x9RH+LuSmFq5j45F3
9krHsRYMnexy6NJng6O+TZzp+wRLnmlVtRmzwfe9VGKl2jMcyKlRe2jHhv68
232bslZY1VxO2enFRmuUbvtjjReQ+7HBRyiEDcXk0e/FEy+xSzWYrp3Mxuhs
X+9b7dewuLql7koRyTdS+0yM/garB3hi7jSS/Ao3qcHBDiw+ucjCsIeNhBOV
nnmq/yH28Hfh7Fk2ZnaUDh4P74Rf0PMaLZlJBOm0VCxv7kLj2dBzPvqT6Ctr
iX+l9B6K7hym/qFJ/PTuyFwX0o0ovxINu/BJrN8pPOdZ24My5e23HzImYZqv
5HVXphe7+p0NtdomcVbBVfmjUx8CHrWP1nImoTlmJ9q5rx/uVNzMdsVvkBZn
i7T86Id/e6qHseU3CDRkslSyPkIi1zRX+Pw3nNStfbfIfACB/954fo/1DaV7
j+Q9nBnAL4HMrMTBb+CMykkMpX3CqbwJx2aZKVTamPKnGg/C/Qvn3+NWUwjf
E51bMTQIv6HzKw1jp6D0wayLEf0ZF6QF+7uapmBoEJUqqzOETl/7qgDeaTit
evGd980Qkhp6ml5tnwbnWeJAQOQXHLY8sjTnr2lkCLgEWasOg7d/tS3f42lI
91bm87UMY1PDyEeVRRwIhkXabgn8ivDRMfPdthzwFLuwBqRGYGG3OiM9i4NT
11mJUo9GsL+pbqnnOAf162NEJP1G0dnZtugPzEDS7JTmRbExTNMilnckzqBn
w8s3wXVjMHjxXZH+eQZ3cqA66DIOHv/J2M4ts3Bm6UsqzI2j1cs5oZ4+i4jo
G5E9JRPwvcHK9x2fBXNYIVPMgkKRM+P8tj1cxGRHu/VaUoi3E/Pp2svFUetx
tTIrCk0TIfGnzbmQr6u7s8+eQlzCsUMlllzEJR1+nHCEgte6rs1ydlwc1782
uTiYgsNl9g++I1woRy3dI1xEQbT1fTE3lIu5zeeXdN6iMBMVn3stjIt3459e
F5VSCJbL/8cwnItk+3vOJncpVB9Zwgi7yMW8hvXp6DoK1EpdhmAsFz2vknL4
31AweRleuyqNi+pLsx5v3lJQ3Cj04FE6F6l/uK5jdFEwSFD94nmNC/NCWsWu
XnLfar23rCwuas61PY38SiEvm/e7EYOLtA16SVZjFCyickO/FnAROJBlq0RR
EAmaoCUVcbHWwqevcZqC/Ezpmu5iLgR4OwqSZymsbV3tG1nKRX/lH95uPygw
dWw+rWFyUefN0NL+TeGyuUlcexkX6YqinPl5CvTNv93/vMPF/wFW4btH
       "]]},
     Annotation[#, "Charting`Private`Tag$4839#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 1.0000000000000009`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 1.}, {1.0000000000000009`, 1.5430806949330278`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.784635634715576*^9},ExpressionUUID->"f433efdf-3edb-4cd0-8edf-\
47f2d6184ead"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", "g", "}"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"g", "[", 
      RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Exp", "[", "x", "]"}], "-", "y"}]}], ";", 
    RowBox[{"EulerDSolve", "[", 
     RowBox[{"g", ",", "1", ",", "0", ",", "1", ",", "4"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7846366622282476`*^9, 
  3.7846366968104687`*^9}},ExpressionUUID->"eb77dfbe-1281-4e06-8ccb-\
6c0911fbcb67"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"y[[\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\"]]=\"\>", "\[InvisibleSpace]", 
   "1.0710063541719355`", "\[InvisibleSpace]", "\<\"\\n\"\>"}],
  SequenceForm["y[[", 2, "]]=", 1.0710063541719355`, "\n"],
  Editable->False]], "Print",
 CellChangeTimes->{3.784636697898844*^9, 
  3.7846367434887867`*^9},ExpressionUUID->"2305f44b-ab16-4d04-8552-\
9632ffca67b9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomInteger", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellLabel->"In[32]:=",ExpressionUUID->"f2f875a3-e645-467e-bd69-c979025f341e"],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2", "5", "5", "3", "4"},
     {"3", "3", "3", "4", "2"},
     {"2", "1", "2", "1", "2"},
     {"1", "1", "1", "1", "2"},
     {"1", "4", "2", "5", "2"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.785121261500198*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"f9480501-cb0f-4e71-a282-e5120cebb34f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Max", "[", 
    RowBox[{
     RowBox[{"RandomInteger", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "5"}], "}"}]}], "]"}], "[", 
     RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7851203088770847`*^9, 3.7851203802799387`*^9}, {
  3.785121186847865*^9, 3.785121225625635*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"d3c68d17-8640-4635-b2ca-f89aac218de8"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"5", ",", "3", ",", "5", ",", "4", ",", "5"}], "}"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.7851203814278383`*^9, 3.785121234754672*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"b7095df8-0270-4040-a966-a7c54759a7a4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"5", ",", "5", ",", "2", ",", "5", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "1", ",", "4", ",", "3", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"5", ",", "1", ",", "4", ",", "1", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "2", ",", "4", ",", "3", ",", "3"}], "}"}]}], "}"}], 
  "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[30]:=",ExpressionUUID->"eabb52a6-8341-4db0-96f2-22907e03883c"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"5", ",", "5"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.7851210192024*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"8300864d-30f6-4c38-b3bc-92b4e02df2b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Det", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"5", ",", "5", ",", "2", ",", "5", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "1", ",", "4", ",", "3", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"5", ",", "1", ",", "4", ",", "1", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "2", ",", "4", ",", "3", ",", "3"}], "}"}]}], "}"}], 
  "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[29]:=",ExpressionUUID->"c0dea9c4-cdd4-4b4e-9098-78fafe479468"],

Cell[BoxData[
 FormBox["34", TraditionalForm]], "Output",
 CellChangeTimes->{3.785120391050858*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"06c1ed6a-589b-4b7a-8c8e-88f3c14430bf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eigenvalues", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"5", ",", "5", ",", "2", ",", "5", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "1", ",", "4", ",", "3", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"5", ",", "1", ",", "4", ",", "1", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "2", ",", "4", ",", "3", ",", "3"}], "}"}]}], "}"}], 
  "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[28]:=",ExpressionUUID->"364db00f-92d4-46ac-a62b-d5b79ef1a427"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    InterpretationBox[
     TemplateBox[{"Root",TemplateBox[{"\"14.0\"", 
         DynamicBox[
          FEPrivate`FrontEndResource[
          "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
       TagBox[
        RowBox[{"Root", "[", 
          RowBox[{
            RowBox[{
              RowBox[{
                SuperscriptBox["#1", "5"], "-", 
                RowBox[{"14", " ", 
                  SuperscriptBox["#1", "4"]}], "-", 
                RowBox[{"10", " ", 
                  SuperscriptBox["#1", "3"]}], "+", 
                RowBox[{"138", " ", 
                  SuperscriptBox["#1", "2"]}], "+", 
                RowBox[{"71", " ", "#1"}], "-", "34"}], "&"}], ",", "5"}], 
          "]"}], Short[#, 7]& ],13.984354328360682`},
      "NumericalApproximation"],
     Root[-34 + 71 # + 138 #^2 - 10 #^3 - 14 #^4 + #^5& , 5, 0]], ",", 
    InterpretationBox[
     TemplateBox[{"Root",TemplateBox[{"\"3.39\"", 
         DynamicBox[
          FEPrivate`FrontEndResource[
          "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
       TagBox[
        RowBox[{"Root", "[", 
          RowBox[{
            RowBox[{
              RowBox[{
                SuperscriptBox["#1", "5"], "-", 
                RowBox[{"14", " ", 
                  SuperscriptBox["#1", "4"]}], "-", 
                RowBox[{"10", " ", 
                  SuperscriptBox["#1", "3"]}], "+", 
                RowBox[{"138", " ", 
                  SuperscriptBox["#1", "2"]}], "+", 
                RowBox[{"71", " ", "#1"}], "-", "34"}], "&"}], ",", "4"}], 
          "]"}], Short[#, 7]& ],3.392059472496386},
      "NumericalApproximation"],
     Root[-34 + 71 # + 138 #^2 - 10 #^3 - 14 #^4 + #^5& , 4, 0]], ",", 
    InterpretationBox[
     TemplateBox[{"Root",TemplateBox[{"\"-2.86\"", 
         DynamicBox[
          FEPrivate`FrontEndResource[
          "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
       TagBox[
        RowBox[{"Root", "[", 
          RowBox[{
            RowBox[{
              RowBox[{
                SuperscriptBox["#1", "5"], "-", 
                RowBox[{"14", " ", 
                  SuperscriptBox["#1", "4"]}], "-", 
                RowBox[{"10", " ", 
                  SuperscriptBox["#1", "3"]}], "+", 
                RowBox[{"138", " ", 
                  SuperscriptBox["#1", "2"]}], "+", 
                RowBox[{"71", " ", "#1"}], "-", "34"}], "&"}], ",", "1"}], 
          "]"}], Short[#, 7]& ],-2.856504416198979},
      "NumericalApproximation"],
     Root[-34 + 71 # + 138 #^2 - 10 #^3 - 14 #^4 + #^5& , 1, 0]], ",", 
    InterpretationBox[
     TemplateBox[{"Root",TemplateBox[{"\"-0.824\"", 
         DynamicBox[
          FEPrivate`FrontEndResource[
          "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
       TagBox[
        RowBox[{"Root", "[", 
          RowBox[{
            RowBox[{
              RowBox[{
                SuperscriptBox["#1", "5"], "-", 
                RowBox[{"14", " ", 
                  SuperscriptBox["#1", "4"]}], "-", 
                RowBox[{"10", " ", 
                  SuperscriptBox["#1", "3"]}], "+", 
                RowBox[{"138", " ", 
                  SuperscriptBox["#1", "2"]}], "+", 
                RowBox[{"71", " ", "#1"}], "-", "34"}], "&"}], ",", "2"}], 
          "]"}], Short[#, 7]& ],-0.8243110469558521},
      "NumericalApproximation"],
     Root[-34 + 71 # + 138 #^2 - 10 #^3 - 14 #^4 + #^5& , 2, 0]], ",", 
    InterpretationBox[
     TemplateBox[{"Root",TemplateBox[{"\"0.304\"", 
         DynamicBox[
          FEPrivate`FrontEndResource[
          "FEExpressions", "NumericalApproximationElider"]]}, "RowDefault"],
       TagBox[
        RowBox[{"Root", "[", 
          RowBox[{
            RowBox[{
              RowBox[{
                SuperscriptBox["#1", "5"], "-", 
                RowBox[{"14", " ", 
                  SuperscriptBox["#1", "4"]}], "-", 
                RowBox[{"10", " ", 
                  SuperscriptBox["#1", "3"]}], "+", 
                RowBox[{"138", " ", 
                  SuperscriptBox["#1", "2"]}], "+", 
                RowBox[{"71", " ", "#1"}], "-", "34"}], "&"}], ",", "3"}], 
          "]"}], Short[#, 7]& ],0.3044016622977617},
      "NumericalApproximation"],
     Root[-34 + 71 # + 138 #^2 - 10 #^3 - 14 #^4 + #^5& , 3, 0]]}], "}"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.785120384657049*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"eb07e6b4-32c0-4dfa-abde-b6d16d7d49c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"A", ",", "c", ",", "index", ",", "tmp", ",", "k"}], "}"}], ",", 
   RowBox[{
    RowBox[{"A", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "5", ",", "2", ",", "5", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1", ",", "4", ",", "3", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "1", ",", "4", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "2", ",", "4", ",", "3", ",", "3"}], "}"}]}], 
      "}"}]}], ";", 
    RowBox[{"Print", "[", 
     RowBox[{"\"\<Det(A) = \>\"", ",", 
      RowBox[{"Det", "[", "A", "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"c", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Max", "[", 
        RowBox[{"A", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "5"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"A", ",", "c"}], "]"}], ";", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"tmp", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"A", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", ";;"}], ",", 
              RowBox[{"i", ";;"}]}], "]"}], "]"}], "/", 
           RowBox[{"c", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "5"}], "}"}]}], "]"}]}], ";", 
       RowBox[{"k", "=", 
        RowBox[{
         RowBox[{"Position", "[", 
          RowBox[{
           RowBox[{"tmp", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", ";;"}], ",", "i"}], "]"}], "]"}], ",", 
           RowBox[{"Max", "[", 
            RowBox[{"tmp", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", ";;"}], ",", "i"}], "]"}], "]"}], "]"}]}], "]"}], 
         "[", 
         RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "5"}], "}"}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7851212866847677`*^9, 3.7851213145920563`*^9}, {
   3.785121502156374*^9, 3.785121509704461*^9}, {3.7851217398383512`*^9, 
   3.785121797281156*^9}, {3.785121839145296*^9, 3.785121946235675*^9}, {
   3.785122038194621*^9, 3.785122061919386*^9}, {3.785122123573537*^9, 
   3.785122162104602*^9}, 3.785122195024736*^9, {3.785128548983385*^9, 
   3.785128594285584*^9}, {3.785128630018216*^9, 3.785128630927277*^9}, {
   3.785128914506373*^9, 3.7851289245954027`*^9}, {3.785129150569378*^9, 
   3.7851291596457253`*^9}, {3.785129198673292*^9, 3.785129199066512*^9}, {
   3.785129241176415*^9, 3.78512924270568*^9}, {3.7851297950407467`*^9, 
   3.7851298050472517`*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"6824da98-6474-4fbc-8c92-ea52720b3a7d"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"Det(A) = \"\>", "\[InvisibleSpace]", "34"}],
   SequenceForm["Det(A) = ", 34],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.7851217997218933`*^9, {3.785121911506531*^9, 3.785121949238398*^9}, {
   3.785122054661001*^9, 3.7851220638885307`*^9}, {3.7851221805818157`*^9, 
   3.7851221969162083`*^9}, 3.78512855901608*^9, 3.7851285965451603`*^9, 
   3.7851286334376097`*^9, 3.785128926682455*^9, 3.7851298079587793`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[51]:=",ExpressionUUID->"64df24ea-de4e-41c7-8249-\
576ca15caca9"],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"5", "5", "2", "5", "1"},
       {"1", "1", "1", "1", "1"},
       {"2", "1", "4", "3", "5"},
       {"5", "1", "4", "1", "3"},
       {"3", "2", "4", "3", "3"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}], "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{"5", ",", "1", ",", "5", ",", "5", ",", "4"}], "}"}]}],
   SequenceForm[{{5, 5, 2, 5, 1}, {1, 1, 1, 1, 1}, {2, 1, 4, 3, 5}, {5, 1, 4, 
    1, 3}, {3, 2, 4, 3, 3}}, {5, 1, 5, 5, 4}],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.7851217997218933`*^9, {3.785121911506531*^9, 3.785121949238398*^9}, {
   3.785122054661001*^9, 3.7851220638885307`*^9}, {3.7851221805818157`*^9, 
   3.7851221969162083`*^9}, 3.78512855901608*^9, 3.7851285965451603`*^9, 
   3.7851286334376097`*^9, 3.785128926682455*^9, 3.7851298080188437`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[51]:=",ExpressionUUID->"8eacf6be-0882-4333-93c1-\
469e4378d8b8"]
}, Open  ]],

Cell[BoxData[
 FormBox[
  TemplateBox[{
   "Part","partw",
    "\"Part \\!\\(\\*FormBox[\\\"2\\\", TraditionalForm]\\) of \
\\!\\(\\*FormBox[RowBox[{\\\"(\\\", \\\"\[NoBreak]\\\", \
GridBox[{{FractionBox[\\\"3\\\", \\\"4\\\"]}}, Rule[RowSpacings, 1], \
Rule[ColumnSpacings, 1], Rule[RowAlignments, Baseline], \
Rule[ColumnAlignments, Center]], \\\"\[NoBreak]\\\", \\\")\\\"}], \
TraditionalForm]\\) does not exist.\"",2,51,9,20369752068658362312,"Local"},
   "MessageTemplate"], TraditionalForm]], "Message", "MSG",
 CellChangeTimes->{3.7851298080943413`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[51]:=",ExpressionUUID->"994c6ab4-bb60-4aba-abdb-\
033189b4df7d"],

Cell[BoxData[
 FormBox[
  TemplateBox[{
   "Part","partw",
    "\"Part \\!\\(\\*FormBox[\\\"2\\\", TraditionalForm]\\) of \
\\!\\(\\*FormBox[RowBox[{\\\"(\\\", \\\"\[NoBreak]\\\", \
GridBox[{{FractionBox[\\\"3\\\", \\\"4\\\"]}}, Rule[RowSpacings, 1], \
Rule[ColumnSpacings, 1], Rule[RowAlignments, Baseline], \
Rule[ColumnAlignments, Center]], \\\"\[NoBreak]\\\", \\\")\\\"}], \
TraditionalForm]\\) does not exist.\"",2,51,10,20369752068658362312,"Local"},
   "MessageTemplate"], TraditionalForm]], "Message", "MSG",
 CellChangeTimes->{3.785129808153489*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[51]:=",ExpressionUUID->"eee80e96-5059-4d30-9a27-\
b70beecb7df6"],

Cell[BoxData[
 FormBox[
  TemplateBox[{
   "Part","partw",
    "\"Part \\!\\(\\*FormBox[\\\"3\\\", TraditionalForm]\\) of \
\\!\\(\\*FormBox[RowBox[{\\\"(\\\", \\\"\[NoBreak]\\\", \
GridBox[{{FractionBox[\\\"1\\\", \\\"5\\\"], FractionBox[\\\"3\\\", \
\\\"5\\\"]}, {FractionBox[\\\"3\\\", \\\"5\\\"], FractionBox[\\\"3\\\", \\\"5\
\\\"]}}, Rule[RowSpacings, 1], Rule[ColumnSpacings, 1], Rule[RowAlignments, \
Baseline], Rule[ColumnAlignments, Center]], \\\"\[NoBreak]\\\", \\\")\\\"}], \
TraditionalForm]\\) does not exist.\"",2,51,11,20369752068658362312,"Local"},
   "MessageTemplate"], TraditionalForm]], "Message", "MSG",
 CellChangeTimes->{3.7851298082061872`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[51]:=",ExpressionUUID->"ceaf8fbc-18c6-408e-be54-\
8c8cbe859645"],

Cell[BoxData[
 FormBox[
  TemplateBox[{
   "General","stop",
    "\"Further output of \\!\\(\\*FormBox[StyleBox[RowBox[{\\\"Part\\\", \
\\\"::\\\", \\\"partw\\\"}], \\\"MessageName\\\"], TraditionalForm]\\) will \
be suppressed during this calculation.\"",2,51,12,20369752068658362312,
    "Local"},
   "MessageTemplate"], TraditionalForm]], "Message", "MSG",
 CellChangeTimes->{3.7851298082598963`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[51]:=",ExpressionUUID->"21f5e2cd-7d97-4e65-9489-\
00b252c0b0dc"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}], ",", 
    RowBox[{"{", "}"}], ",", 
    RowBox[{"{", "}"}], ",", 
    RowBox[{"{", "}"}], ",", 
    RowBox[{"{", "}"}]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.7851213169481363`*^9, 3.78512179978298*^9, {3.785121911577259*^9, 
   3.785121949302496*^9}, {3.785122054723523*^9, 3.785122064149898*^9}, {
   3.785122181147293*^9, 3.785122197170299*^9}, 3.785128559315385*^9, 
   3.785128596898839*^9, 3.785128633670617*^9, 3.7851289269617577`*^9, 
   3.785129808303102*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"5b110b6e-ed37-4a9c-841b-11523fc4a131"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"5", "*", "4", "*", 
  RowBox[{"3", "/", "5"}], "*", "2"}]], "Input",
 CellChangeTimes->{{3.78513011532724*^9, 3.7851301230444202`*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"5a915a0d-9fe1-48ee-b6f5-73d1417700fc"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"34", "/", "24"}], TraditionalForm]], "Input",
 CellChangeTimes->{{3.785130136073063*^9, 3.7851301433509417`*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"4f8a2225-0247-47ee-bcbf-3b9ee635a768"],

Cell[BoxData[
 FormBox[
  FractionBox["17", "12"], TraditionalForm]], "Output",
 CellChangeTimes->{{3.785130139523394*^9, 3.785130144193721*^9}},
 CellLabel->"Out[54]=",ExpressionUUID->"beba993b-5f17-4bc3-bc5d-5b043be5a592"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 997},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>1.5 Inherited,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (2019\:5e745\:670818\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 198, 5, 66, "Input",ExpressionUUID->"51900790-39f4-4416-8487-bcea26d26948"],
Cell[CellGroupData[{
Cell[781, 29, 190, 3, 146, "Title",ExpressionUUID->"5ab17341-64f4-400e-8506-bfaf25f67ac2"],
Cell[CellGroupData[{
Cell[996, 36, 173, 3, 99, "Section",ExpressionUUID->"5fec180a-bc2a-4d6d-94be-2ec9673a5563"],
Cell[CellGroupData[{
Cell[1194, 43, 156, 3, 80, "Subsection",ExpressionUUID->"84399253-ed40-41cd-a8d1-d17e2af9901d"],
Cell[1353, 48, 4340, 104, 390, "Input",ExpressionUUID->"1779b5ad-7ae5-47a7-9390-629d4d05fdf3"],
Cell[CellGroupData[{
Cell[5718, 156, 761, 19, 73, "Input",ExpressionUUID->"cbd94483-3ef0-47b6-b4ff-ad0927496507"],
Cell[CellGroupData[{
Cell[6504, 179, 1017, 22, 34, "Print",ExpressionUUID->"73fd07fa-c977-4343-a7b9-d7ea0929f0fc"],
Cell[7524, 203, 1034, 22, 34, "Print",ExpressionUUID->"b3305a68-1f0a-44ea-8107-df78b824560a"],
Cell[8561, 227, 1011, 21, 34, "Print",ExpressionUUID->"874e3549-018a-4997-b197-01660f7496cd"],
Cell[9575, 250, 1012, 21, 34, "Print",ExpressionUUID->"41d1975b-204f-4e01-a37f-e48096f6b85d"],
Cell[10590, 273, 1010, 21, 34, "Print",ExpressionUUID->"857a0009-a76c-49b1-9c44-dd35dfcb3cff"],
Cell[11603, 296, 1012, 21, 34, "Print",ExpressionUUID->"92eefb02-981e-426a-aafe-b120625a8c77"],
Cell[12618, 319, 763, 16, 36, "Print",ExpressionUUID->"4cd7a6eb-68e2-4534-a705-dc2eb3bd7382"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13430, 341, 1664, 49, 478, "Input",ExpressionUUID->"a8184581-4870-4c2d-8b7a-0927944bf1d2"],
Cell[15097, 392, 332, 5, 49, "Output",ExpressionUUID->"360632b9-0fc0-4f79-98a8-d8f94adacbb9"],
Cell[15432, 399, 344, 5, 49, "Output",ExpressionUUID->"8774612e-293a-48ed-b1ec-fb2f77cd06f9"],
Cell[15779, 406, 331, 5, 49, "Output",ExpressionUUID->"12e0f63b-3de5-4c54-ad11-5c7ffdc2fe99"],
Cell[16113, 413, 344, 5, 49, "Output",ExpressionUUID->"68d95acc-38d8-4b48-adf4-73b5975a5026"],
Cell[16460, 420, 344, 5, 49, "Output",ExpressionUUID->"45910b88-ee1f-47b0-8a44-f570119cbec6"],
Cell[16807, 427, 344, 5, 49, "Output",ExpressionUUID->"f30e1b3e-d610-4b9f-9c84-15eeac6117fb"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17212, 439, 179, 3, 99, "Section",ExpressionUUID->"4c4cd244-da63-4b32-b91b-4a7e57e92b9c"],
Cell[17394, 444, 174, 3, 80, "Subsection",ExpressionUUID->"4d87c54d-904b-4d40-be76-096cc98a664f"],
Cell[CellGroupData[{
Cell[17593, 451, 176, 3, 54, "Subsection",ExpressionUUID->"e6ee30fe-493f-4667-ae4f-ce9435f3d682"],
Cell[17772, 456, 156, 3, 43, "Input",ExpressionUUID->"2465155c-5b9e-46b8-9c6d-2287697ef625"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17965, 464, 252, 4, 80, "Subsection",ExpressionUUID->"da8513f7-18f4-432d-a260-52900ccedc3e"],
Cell[18220, 470, 2724, 66, 369, "Input",ExpressionUUID->"4a5a0d8e-17c0-4cf5-babf-a652b4deab74"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20981, 541, 178, 3, 80, "Subsection",ExpressionUUID->"51495d02-ef74-438d-98a0-39149e5aa4bd"],
Cell[21162, 546, 3057, 70, 383, "Input",ExpressionUUID->"ab532d7e-4db9-4e88-a63f-de208aa850e8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24268, 622, 176, 3, 99, "Section",ExpressionUUID->"27496f8a-2aa8-46c0-98d5-b24c59950694"],
Cell[CellGroupData[{
Cell[24469, 629, 168, 3, 80, "Subsection",ExpressionUUID->"50d8564f-b1d4-4de8-91da-13cccdad9287"],
Cell[24640, 634, 1823, 54, 289, "Input",ExpressionUUID->"51176123-7dc0-487e-9233-cf0507a07316"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[26512, 694, 171, 3, 99, "Section",ExpressionUUID->"31056acd-b996-4ee8-84ee-59626256270a"],
Cell[26686, 699, 1529, 37, 257, "Input",ExpressionUUID->"2c479c04-cb8a-4968-9ab8-150a224995fb"]
}, Open  ]],
Cell[28230, 739, 177, 3, 99, "Section",ExpressionUUID->"565d7f19-1efd-46b0-9d35-1a8214823388"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28444, 747, 155, 3, 146, "Title",ExpressionUUID->"11a314b5-05a6-4283-a862-5722d816ddc5"],
Cell[CellGroupData[{
Cell[28624, 754, 392, 9, 66, "Input",ExpressionUUID->"7016a830-9065-43d8-82a7-28472cb3e6a6"],
Cell[29019, 765, 474, 10, 35, "Message",ExpressionUUID->"f654e48b-c3e9-4def-917d-f9a585b7620e"],
Cell[29496, 777, 611, 15, 48, "Output",ExpressionUUID->"6d6bc4e0-6c39-46a8-b1d6-db479b431d4b"]
}, Open  ]],
Cell[30122, 795, 307, 9, 66, "Input",ExpressionUUID->"61c3f0f6-b937-4995-9ab9-5c49d11c8fe1"],
Cell[CellGroupData[{
Cell[30454, 808, 287, 7, 43, "Input",ExpressionUUID->"e2fd755d-39e4-4234-850f-6e898c5ee7fa"],
Cell[CellGroupData[{
Cell[30766, 819, 806, 16, 58, "Print",ExpressionUUID->"01d924ca-a05f-4a82-bea2-e8157506841d"],
Cell[31575, 837, 708, 15, 58, "Print",ExpressionUUID->"5cc0c145-0057-4e06-b2a3-c8c8525d0d0b"],
Cell[32286, 854, 714, 15, 58, "Print",ExpressionUUID->"8b282fb5-e957-4379-a106-e2b4319d575e"]
}, Open  ]],
Cell[33015, 872, 462, 9, 48, "Output",ExpressionUUID->"a428f7d2-2c37-47f9-a7f9-7ccaad956ed2"]
}, Open  ]],
Cell[33492, 884, 81, 0, 43, "Input",ExpressionUUID->"ba808e4b-4eaf-40b1-a717-bb357e943937"],
Cell[33576, 886, 391, 11, 74, "Input",ExpressionUUID->"4f18c5d5-45c0-4bec-9853-e034ccd3a81b"],
Cell[CellGroupData[{
Cell[33992, 901, 427, 9, 73, "Input",ExpressionUUID->"b7a9230b-1072-4beb-8305-9824f9906a37"],
Cell[CellGroupData[{
Cell[34444, 914, 876, 18, 34, "Print",ExpressionUUID->"d29f618b-5f02-4c31-a6a4-186a48292fa0"],
Cell[35323, 934, 724, 13, 34, "Print",ExpressionUUID->"1213688c-98ac-4e57-8e3d-600ee2106d78"]
}, Open  ]],
Cell[36062, 950, 516, 8, 49, "Output",ExpressionUUID->"e5108861-6c62-4353-8f7d-4c2cbe6176c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36615, 963, 394, 11, 70, "Input",ExpressionUUID->"2cd15d2d-1942-4ef8-a5f1-6849c3d29e5c"],
Cell[37012, 976, 177, 4, 69, "Output",ExpressionUUID->"74f9525d-fd8e-47ed-89e9-22da20afc8f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37226, 985, 154, 3, 92, "Input",ExpressionUUID->"c605e795-5e33-40df-90fb-57913fccef41"],
Cell[37383, 990, 150, 3, 49, "Output",ExpressionUUID->"677c4b03-0d84-483c-93a5-01211881fa1b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37570, 998, 326, 9, 66, "Input",ExpressionUUID->"0d77be41-d3a6-454d-8ba5-d87b3c18fc2b"],
Cell[37899, 1009, 174, 3, 49, "Output",ExpressionUUID->"06a492d4-a25d-41cf-acb6-435974f406dc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38110, 1017, 246, 6, 66, "Input",ExpressionUUID->"5acdb8f1-82ae-4e93-b9a3-024555d3c0fa"],
Cell[38359, 1025, 353, 8, 49, "Output",ExpressionUUID->"876df9fa-91d9-488a-adff-2c1be805bb83"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38749, 1038, 269, 6, 43, "Input",ExpressionUUID->"b22cb1b7-8703-47a7-b752-013d8ab3f8bd"],
Cell[39021, 1046, 195, 4, 49, "Output",ExpressionUUID->"e10c68cc-25c9-4e3e-a2c7-0b503b298b4f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39253, 1055, 683, 14, 66, "Input",ExpressionUUID->"8ce4e4d7-3063-406a-be12-c67d181fd183"],
Cell[39939, 1071, 745, 14, 35, "Message",ExpressionUUID->"c98828ff-9148-4d05-a155-eeae1c13f678"],
Cell[40687, 1087, 1731, 42, 79, "Output",ExpressionUUID->"a743a977-df3b-4252-9782-28daebdde5e9"]
}, Open  ]],
Cell[42433, 1132, 182, 4, 66, "Input",ExpressionUUID->"f662c590-d0a7-476b-9b0f-759a4a64624d"],
Cell[CellGroupData[{
Cell[42640, 1140, 676, 18, 66, "Input",ExpressionUUID->"df740d00-9c63-4c8f-8b45-eb13aa10e567"],
Cell[43319, 1160, 15247, 299, 105, "Output",ExpressionUUID->"4b9ce6be-57a9-4d11-b18d-b66f4bec94df"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58603, 1464, 203, 3, 43, "Input",ExpressionUUID->"7c50eedc-d319-4ad0-8f13-a70d2ead451a"],
Cell[58809, 1469, 14404, 289, 105, "Output",ExpressionUUID->"c1a78120-20f4-45a3-90af-b35edd11385d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73250, 1763, 267, 6, 70, "Input",ExpressionUUID->"bd086e3d-f233-4f0c-8858-7be03284f14a"],
Cell[73520, 1771, 4696, 95, 357, "Output",ExpressionUUID->"f433efdf-3edb-4cd0-8edf-47f2d6184ead"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78253, 1871, 504, 15, 66, "Input",ExpressionUUID->"eb77dfbe-1281-4e06-8ccb-6c0911fbcb67"],
Cell[78760, 1888, 426, 9, 63, "Print",ExpressionUUID->"2305f44b-ab16-4d04-8552-9632ffca67b9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79223, 1902, 266, 7, 66, "Input",ExpressionUUID->"f2f875a3-e645-467e-bd69-c979025f341e"],
Cell[79492, 1911, 695, 18, 150, "Output",ExpressionUUID->"f9480501-cb0f-4e71-a282-e5120cebb34f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80224, 1934, 599, 16, 66, "Input",ExpressionUUID->"d3c68d17-8640-4635-b2ca-f89aac218de8"],
Cell[80826, 1952, 281, 6, 48, "Output",ExpressionUUID->"b7095df8-0270-4040-a966-a7c54759a7a4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81144, 1963, 648, 16, 66, "Input",ExpressionUUID->"eabb52a6-8341-4db0-96f2-22907e03883c"],
Cell[81795, 1981, 222, 5, 48, "Output",ExpressionUUID->"8300864d-30f6-4c38-b3bc-92b4e02df2b6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[82054, 1991, 641, 16, 66, "Input",ExpressionUUID->"c0dea9c4-cdd4-4b4e-9098-78fafe479468"],
Cell[82698, 2009, 178, 3, 48, "Output",ExpressionUUID->"06c1ed6a-589b-4b7a-8c8e-88f3c14430bf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[82913, 2017, 649, 16, 66, "Input",ExpressionUUID->"364db00f-92d4-46ac-a62b-d5b79ef1a427"],
Cell[83565, 2035, 4557, 111, 62, "Output",ExpressionUUID->"eb07e6b4-32c0-4dfa-abde-b6d16d7d49c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88159, 2151, 3059, 76, 336, "Input",ExpressionUUID->"6824da98-6474-4fbc-8c92-ea52720b3a7d"],
Cell[CellGroupData[{
Cell[91243, 2231, 614, 13, 32, "Print",ExpressionUUID->"64df24ea-de4e-41c7-8249-576ca15caca9"],
Cell[91860, 2246, 1318, 31, 127, "Print",ExpressionUUID->"8eacf6be-0882-4333-93c1-469e4378d8b8"]
}, Open  ]],
Cell[93193, 2280, 667, 14, 47, "Message",ExpressionUUID->"994c6ab4-bb60-4aba-abdb-033189b4df7d"],
Cell[93863, 2296, 666, 14, 47, "Message",ExpressionUUID->"eee80e96-5059-4d30-9a27-b70beecb7df6"],
Cell[94532, 2312, 777, 15, 87, "Message",ExpressionUUID->"ceaf8fbc-18c6-408e-be54-8c8cbe859645"],
Cell[95312, 2329, 511, 12, 35, "Message",ExpressionUUID->"21f5e2cd-7d97-4e65-9489-00b252c0b0dc"],
Cell[95826, 2343, 677, 16, 48, "Output",ExpressionUUID->"5b110b6e-ed37-4a9c-841b-11523fc4a131"]
}, Open  ]],
Cell[96518, 2362, 238, 4, 43, "Input",ExpressionUUID->"5a915a0d-9fe1-48ee-b6f5-73d1417700fc"],
Cell[CellGroupData[{
Cell[96781, 2370, 227, 4, 43, "Input",ExpressionUUID->"4f8a2225-0247-47ee-bcbf-3b9ee635a768"],
Cell[97011, 2376, 224, 4, 70, "Output",ExpressionUUID->"beba993b-5f17-4bc3-bc5d-5b043be5a592"]
}, Open  ]]
}, Open  ]]
}
]
*)

